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&gt; * 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