CVS update by aidan packages/xemacs-packages/xwem/lisp, xwem-clients.el ...

  User: aidan   
  Date: 09/10/01 20:30:14

  Modified:    packages/xemacs-packages/xwem/lisp xwem-battery.el
                        xwem-clients.el
Log:
Don't call #'values-list from compiled code calls under 21.4, XWE

Revision  Changes    Path
1.83      +10 -1     XEmacs/packages/xemacs-packages/xwem/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xwem/ChangeLog,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -p -r1.82 -r1.83
--- ChangeLog	2006/04/03 13:04:06	1.82
+++ ChangeLog	2009/10/01 18:30:10	1.83
@@ -1,3 +1,12 @@
+2009-08-13  Aidan Kehoe  <[email protected]>
+
+	* lisp/xwem-battery.el:
+	* lisp/xwem-clients.el:
+	Don't call values-list from compiled code if compiling without
+	C-level multiple value support, avoiding problems when such
+	compiled code is called in an XEmacs with C-level multiple value
+	support. 
+
 2006-04-03  Norbert Koch  <[email protected]>
 
 	* Makefile (VERSION): XEmacs package 1.22 released.
@@ -612,4 +621,4 @@
 
 	* ChangeLog (Revision): ChangeLog in new XWEM layout created.
 	
-;; $Id: ChangeLog,v 1.82 2006/04/03 13:04:06 viteno Exp $
+;; $Id: ChangeLog,v 1.83 2009/10/01 18:30:10 aidan Exp $



1.3       +6 -1      XEmacs/packages/xemacs-packages/xwem/lisp/xwem-battery.el

Index: xwem-battery.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xwem/lisp/xwem-battery.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- xwem-battery.el	2005/04/04 19:54:10	1.2
+++ xwem-battery.el	2009/10/01 18:30:13	1.3
@@ -6,7 +6,7 @@
 ;;         Steve Youngs  <[email protected]>
 ;; Created: Thu Sep  2 01:14:36 GMT 2004
 ;; Keywords: xwem
-;; X-CVS: $Id: xwem-battery.el,v 1.2 2005/04/04 19:54:10 lg Exp $
+;; X-CVS: $Id: xwem-battery.el,v 1.3 2009/10/01 18:30:13 aidan Exp $
 
 ;; This file is part of XWEM.
 
@@ -63,6 +63,11 @@
 (require 'xlib-xshape)
 
 (require 'xwem-load)
+
+;; Have compiled 21.4 code also work on XEmacs binaries with real support
+;; for multiple values, by avoiding runtime calls to #'values-list: 
+(eval-when-compile (when (eq 'identity (symbol-function 'values-list))
+                     (define-compiler-macro values-list (arg) arg)))
 
 ;;; Customisation
 (defgroup xwem-batt nil



1.16      +6 -1      XEmacs/packages/xemacs-packages/xwem/lisp/xwem-clients.el

Index: xwem-clients.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xwem/lisp/xwem-clients.el,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -p -r1.15 -r1.16
--- xwem-clients.el	2005/04/04 19:54:10	1.15
+++ xwem-clients.el	2009/10/01 18:30:13	1.16
@@ -7,7 +7,7 @@
 ;;         Richard Klinda <[email protected]>
 ;; Created: 2 Mar 2003
 ;; Keywords: xlib, xwem
-;; X-CVS: $Id: xwem-clients.el,v 1.15 2005/04/04 19:54:10 lg Exp $
+;; X-CVS: $Id: xwem-clients.el,v 1.16 2009/10/01 18:30:13 aidan Exp $
 
 ;; This file is part of XWEM.
 
@@ -96,6 +96,11 @@
   ;; Shutup compiler
   (defvar xwem-frame-ev-mask)
   )
+
+;; Have compiled 21.4 code also work on XEmacs binaries with real support
+;; for multiple values, by avoiding runtime calls to #'values-list: 
+(eval-when-compile (when (eq 'identity (symbol-function 'values-list))
+                     (define-compiler-macro values-list (arg) arg)))
 
 (require 'xwem-load)
 (require 'xwem-manage)