28 Dec 2011 01:23
[patch] disable compile-time feature optimization on XEmacs
Mike Kupfer <m.kupfer <at> acm.org>
2011-12-28 00:23:29 GMT
2011-12-28 00:23:29 GMT
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)
RSS Feed