Mike Kupfer | 28 Dec 2011 01:23
Picon
Favicon

[patch] disable compile-time feature optimization on XEmacs

As per discussion on #mh-e, this version uses (featurep 'xemacs) instead
of introducing a control variable.  Generated with "diff -bw".

Supercedes <3550.1325011872 <at> rawbw.com>.

2011-12-27  Mike Kupfer  <mike.kupfer <at> xemacs.org>

	* lisp/mh-acros.el (mh-funcall-if-exists): Force check to happen
	at runtime if (featurep 'xemacs).

	* lisp/mh-xemacs.el: Check for define-behavior at runtime, not
	compile time.

diff --git a/xemacs-packages/mh-e/lisp/mh-acros.el b/xemacs-packages/mh-e/lisp/mh-acros.el
--- a/xemacs-packages/mh-e/lisp/mh-acros.el
+++ b/xemacs-packages/mh-e/lisp/mh-acros.el
 <at>  <at>  -77,7 +77,8  <at>  <at> 
 ;;;###mh-autoload
 (defmacro mh-funcall-if-exists (function &rest args)
   "Call FUNCTION with ARGS as parameters if it exists."
-  (when (fboundp function)
+  (when (or (fboundp function)
+            (featurep 'xemacs))
     `(when (fboundp ',function)
        (funcall ',function , <at> args))))

diff --git a/xemacs-packages/mh-e/lisp/mh-xemacs.el b/xemacs-packages/mh-e/lisp/mh-xemacs.el
--- a/xemacs-packages/mh-e/lisp/mh-xemacs.el
+++ b/xemacs-packages/mh-e/lisp/mh-xemacs.el
 <at>  <at>  -31,7 +31,9  <at>  <at> 
(Continue reading)


Gmane