CVS update by aidan packages/mule-packages/edict ...

  User: aidan   
  Date: 09/10/02 15:26:49

  Modified:    packages/mule-packages/edict ChangeLog edict-edit.el
Log:
Transform #'values calls to #'list calls under 21.4, edict-edit.el

Revision  Changes    Path
1.17      +7 -0      XEmacs/packages/mule-packages/edict/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/edict/ChangeLog,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -p -r1.16 -r1.17
--- ChangeLog	2003/10/31 17:18:15	1.16
+++ ChangeLog	2009/10/02 13:26:49	1.17
@@ -1,3 +1,10 @@
+2009-08-13  Aidan Kehoe  <[email protected]>
+
+	* edict-edit.el: 
+	Have compiled 21.4 code also work on XEmacs binaries with real
+	support for multiple values, by avoiding runtime calls to
+	#'values.
+
 2003-10-31  Norbert Koch  <[email protected]>
 
 	* Makefile (VERSION): XEmacs package 1.16 released.



1.5       +6 -0      XEmacs/packages/mule-packages/edict/edict-edit.el

Index: edict-edit.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/edict/edict-edit.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- edict-edit.el	2002/01/31 10:08:35	1.4
+++ edict-edit.el	2009/10/02 13:26:49	1.5
@@ -45,6 +45,12 @@
 
 (require 'cl)
 
+;; 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))))
+
 ;;; Customizable variables
 
 ;; #### does this tristate make sense with Customize support?