CVS update by aidan packages/xemacs-packages/xemacs-base ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 07/12/18 21:54:53

  Modified:    packages/xemacs-packages/xemacs-base ChangeLog advice.el
Log:
If #'special-form-p is available in advice.el, call it.

Revision  Changes    Path
1.200     +6 -0      XEmacs/packages/xemacs-packages/xemacs-base/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/ChangeLog,v
retrieving revision 1.199
retrieving revision 1.200
diff -u -p -r1.199 -r1.200
--- ChangeLog	2007/12/18 10:39:00	1.199
+++ ChangeLog	2007/12/18 20:54:52	1.200
@@ -1,3 +1,9 @@
+2007-12-18  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* 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. 
+
 2007-12-18  Mike Sperber  <mike at xemacs.org>
 
 	* etc/enriched.doc: Fix trivial typo.



1.2       +7 -1      XEmacs/packages/xemacs-packages/xemacs-base/advice.el

Index: advice.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-base/advice.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- advice.el	1998/01/14 06:32:18	1.1
+++ advice.el	2007/12/18 20:54:52	1.2
@@ -2470,7 +2470,13 @@ will clear the cache."
 
 (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."