[COMMIT] Transform #'values calls to #'list calls under 21.4, overlay.el

APPROVE COMMIT NOTE: This patch has been committed. xemacs-packages/fsf-compat/ChangeLog addition: 2009-08-13 Aidan Kehoe <kehoea(a)parhasard.net&gt; * overlay.el: Transform #'values calls to #'list calls under 21.4, overlay.el XEmacs Packages source patch: Diff command: cvs -q diff -Nu Files affected: xemacs-packages/fsf-compat/overlay.el Index: xemacs-packages/fsf-compat/overlay.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/fsf-compat/overlay.el,v retrieving revision 1.4 diff -u -r1.4 overlay.el --- xemacs-packages/fsf-compat/overlay.el 2008/04/11 19:22:41 1.4 +++ xemacs-packages/fsf-compat/overlay.el 2009/08/13 15:20:53 ＠＠ -64,6 +64,12 ＠＠  ;;; Code: +;; 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)))) + (defun overlayp (object) "Return t if OBJECT is an overlay." (and (extentp object) -- ¿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