User: kupfer
Date: 09/08/17 21:15:44
Modified: packages/xemacs-packages/mh-e ChangeLog mh-e.el mh-index.el
mh-seq.el
Log:
mh-e.el, mh-index.el, mh-seq.el: If #'values is an alias for #'list,
force the compiler to use #'list. This way, code compiled with 21.4
will also work on XEmacs binaries with real support for multiple
values. (From Aidan Kehoe.)
Revision Changes Path
1.48 +9 -0 XEmacs/packages/xemacs-packages/mh-e/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/mh-e/ChangeLog,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -p -r1.47 -r1.48
--- ChangeLog 2007/10/15 11:52:30 1.47
+++ ChangeLog 2009/08/17 19:15:40 1.48
@@ -1,3 +1,12 @@
+2009-08-13 Aidan Kehoe <[email protected]>
+
+ * mh-e.el:
+ * mh-index.el:
+ * mh-seq.el:
+ If #'values is an alias for #'list, force the compiler to use
+ #'list. This way, code compiled with 21.4 will also work on
+ XEmacs binaries with real support for multiple values.
+
2007-10-15 Norbert Koch <[email protected]>
* Makefile (VERSION): XEmacs package 1.31 released.
1.8 +6 -0 XEmacs/packages/xemacs-packages/mh-e/mh-e.el
Index: mh-e.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/mh-e/mh-e.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- mh-e.el 2003/09/02 23:39:26 1.7
+++ mh-e.el 2009/08/17 19:15:40 1.8
@@ -99,6 +99,12 @@
(if mh-xemacs-flag
(require 'mh-xemacs-compat))
+;; Have compiled 21.4 code also work on XEmacs binaries with real support
+;; for multiple values, by avoiding runtime calls to #'values:
+(eval-when-compile (when (eq 'list (symbol-function 'values))
+ (define-compiler-macro values (&rest args)
+ `(list ,@args))))
+
;; Shush the byte-compiler
(defvar font-lock-auto-fontify)
(defvar font-lock-defaults)
1.6 +6 -0 XEmacs/packages/xemacs-packages/mh-e/mh-index.el
Index: mh-index.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/mh-e/mh-index.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -p -r1.5 -r1.6
--- mh-index.el 2003/09/02 23:39:26 1.5
+++ mh-index.el 2009/08/17 19:15:40 1.6
@@ -53,6 +53,12 @@
(autoload 'widget-convert-button "wid-edit")
(autoload 'executable-find "executable")
+;; Have compiled 21.4 code also work on XEmacs binaries with real support
+;; for multiple values, by avoiding runtime calls to #'values:
+(eval-when-compile (when (eq 'list (symbol-function 'values))
+ (define-compiler-macro values (&rest args)
+ `(list ,@args))))
+
;; Support different indexing programs
(defvar mh-indexer-choices
'((swish++
1.7 +6 -0 XEmacs/packages/xemacs-packages/mh-e/mh-seq.el
Index: mh-seq.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/mh-e/mh-seq.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -p -r1.6 -r1.7
--- mh-seq.el 2003/09/02 23:39:26 1.6
+++ mh-seq.el 2009/08/17 19:15:41 1.7
@@ -73,6 +73,12 @@
(require 'cl)
(require 'mh-e)
+;; Have compiled 21.4 code also work on XEmacs binaries with real support
+;; for multiple values, by avoiding runtime calls to #'values:
+(eval-when-compile (when (eq 'list (symbol-function 'values))
+ (define-compiler-macro values (&rest args)
+ `(list ,@args))))
+
;; Shush the byte-compiler
(defvar tool-bar-mode)
lmpx.com only provides a reader for public news (NNTP) servers. It is not
affiliated with the servers or forums shown here and is not responsible for
the content of articles, which is written by their respective authors.