User: aidan
Date: 09/08/13 17:21:48
Modified: packages/xemacs-packages/fsf-compat ChangeLog overlay.el
Log:
Transform #'values calls to #'list calls under 21.4, overlay.el
Revision Changes Path
1.27 +5 -0 XEmacs/packages/xemacs-packages/fsf-compat/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/fsf-compat/ChangeLog,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -p -r1.26 -r1.27
--- ChangeLog 2009/07/30 20:03:04 1.26
+++ ChangeLog 2009/08/13 15:21:46 1.27
@@ -1,3 +1,8 @@
+2009-08-13 Aidan Kehoe <[email protected]>
+
+ * overlay.el:
+ Transform #'values calls to #'list calls under 21.4, overlay.el
+
2009-07-30 Norbert Koch <[email protected]>
* Makefile (VERSION): XEmacs package 1.18 released.
1.5 +6 -0 XEmacs/packages/xemacs-packages/fsf-compat/overlay.el
Index: overlay.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/fsf-compat/overlay.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- overlay.el 2008/04/11 19:22:41 1.4
+++ overlay.el 2009/08/13 15:21:46 1.5
@@ -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)
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.