/[gentoo-x86]/app-emacs/chess/files/2.0_beta5-byte-compiling-files-gentoo.patch
Gentoo

Contents of /app-emacs/chess/files/2.0_beta5-byte-compiling-files-gentoo.patch

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations) (download)
Fri Oct 26 17:58:46 2007 UTC (10 years, 11 months ago) by ulm
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +0 -0 lines
FILE REMOVED
Remove old.
(Portage version: 2.1.3.16)

1 diff -ur chess-2.0b5.orig/chess-maint.el chess-2.0b5/chess-maint.el
2 --- chess-2.0b5.orig/chess-maint.el 2004-02-24 05:43:42.000000000 -0600
3 +++ chess-2.0b5/chess-maint.el 2005-06-30 11:10:05.000000000 -0500
4 @@ -4,10 +4,21 @@
5 (require 'chess)
6 (require 'chess-pgn)
7
8 +;; (defmacro assert (form)
9 +;; ;; byte-compiling-files-p not available in Emacs 22
10 +;; (if (< emacs-major-version 22)
11 +;; (unless (byte-compiling-files-p)
12 +;; `(unless ,form
13 +;; (error "Assertion failed: %s" (pp-to-string ,form))))
14 +;; `(unless ,form
15 +;; (error "Assertion failed: %s" (pp-to-string ,form)))))
16 +
17 +;; (defmacro assert (form)
18 +;; `(unless ,form
19 +;; (error "Assertion failed: %s" (pp-to-string ,form))))
20 +
21 (defmacro assert (form)
22 - (unless (byte-compiling-files-p)
23 - `(unless ,form
24 - (error "Assertion failed: %s" (pp-to-string ,form)))))
25 + t)
26
27 (defun chess-generate-texinfo-file ()
28 (require 'lispdoc)

  ViewVC Help
Powered by ViewVC 1.1.20