Hi Mike,
I need this for a C patch I intend to commit soon; see
http://mid.gmane.org/19073.42189.496305.702986@parhasard.net .
Best,
Aidan
xemacs-packages/mh-e/ChangeLog addition:
2009-08-13 Aidan Kehoe <kehoea(a)parhasard.net>
* mh-e.el:
* mh-index.el:
* mh-seq.el:
Have compiled 21.4 code also work on XEmacs binaries with real
support for multiple values, by avoiding runtime calls to
#'values:
XEmacs Packages source patch:
Diff command: cvs -q diff -Nu
Files affected: xemacs-packages/mh-e/mh-seq.el xemacs-packages/mh-e/mh-index.el
xemacs-packages/mh-e/mh-e.el
Index: xemacs-packages/mh-e/mh-e.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/mh-e/mh-e.el,v
retrieving revision 1.7
diff -u -r1.7 mh-e.el
--- xemacs-packages/mh-e/mh-e.el 2003/09/02 23:39:26 1.7
+++ xemacs-packages/mh-e/mh-e.el 2009/08/13 16:40:11
@@ -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)
Index: xemacs-packages/mh-e/mh-index.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/mh-e/mh-index.el,v
retrieving revision 1.5
diff -u -r1.5 mh-index.el
--- xemacs-packages/mh-e/mh-index.el 2003/09/02 23:39:26 1.5
+++ xemacs-packages/mh-e/mh-index.el 2009/08/13 16:40:12
@@ -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++
Index: xemacs-packages/mh-e/mh-seq.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/mh-e/mh-seq.el,v
retrieving revision 1.6
diff -u -r1.6 mh-seq.el
--- xemacs-packages/mh-e/mh-seq.el 2003/09/02 23:39:26 1.6
+++ xemacs-packages/mh-e/mh-seq.el 2009/08/13 16:40:12
@@ -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)
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches