[COMMIT] If #'special-form-p is available in advice.el, call it

APPROVE COMMIT NOTE: This patch has been committed. xemacs-packages/xemacs-base/ChangeLog addition: 2007-12-18 Aidan Kehoe <kehoea(a)parhasard.net&gt; * advice.el (ad-special-form-p): If #'special-form-p is available, don't hardcode the list of special forms, call on the function in question instead. XEmacs Packages source patch: Diff command: cvs -q diff -Nu Files affected: xemacs-packages/xemacs-base/advice.el =================================================================== RCS Index: xemacs-packages/xemacs-base/advice.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/advice.el,v retrieving revision 1.1.1.1 diff -u -u -r1.1.1.1 advice.el --- xemacs-packages/xemacs-base/advice.el 1998/01/14 06:32:18 1.1.1.1 +++ xemacs-packages/xemacs-base/advice.el 2007/12/18 20:52:15 ＠＠ -2470,7 +2470,13 ＠＠ (defmacro ad-special-form-p (definition) ;;"non-nil if DEFINITION is a special form." - (list 'memq definition 'ad-special-forms)) + (if (fboundp #'if-fboundp) + `(if-fboundp #'special-form-p + (special-form-p ,definition) + (memq ,definition ad-special-forms)) + `(if (fboundp #'special-form-p) + (special-form-p ,definition) + (memq ,definition ad-special-forms)))) (defmacro ad-interactive-p (definition) ;;"non-nil if DEFINITION can be called interactively." -- ¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir precipitadamente de la aldea por culpa de la escasez de rinocerontes? _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches