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

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 07/12/30 15:25:01

  Modified:    packages/xemacs-packages/xemacs-devel ChangeLog find-func.el
Log:
Accept built-in macros in #'find-func.

Revision  Changes    Path
1.112     +5 -0      XEmacs/packages/xemacs-packages/xemacs-devel/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-devel/ChangeLog,v
retrieving revision 1.111
retrieving revision 1.112
diff -u -p -r1.111 -r1.112
--- ChangeLog	2007/09/17 10:51:11	1.111
+++ ChangeLog	2007/12/30 14:24:59	1.112
@@ -1,3 +1,8 @@
+2007-12-30  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* find-func.el (find-function-C-source):
+	Accept built-in macros in this function. 
+
 2007-09-17  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.76 released.



1.12      +5 -1      XEmacs/packages/xemacs-packages/xemacs-devel/find-func.el

Index: find-func.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-devel/find-func.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -p -r1.11 -r1.12
--- find-func.el	2006/08/06 09:51:25	1.11
+++ find-func.el	2007/12/30 14:24:59	1.12
@@ -201,7 +201,11 @@ TYPE should be nil to find a function, o
 			 "\"")
 	       (concat "DEFUN\\(_NORETURN\\|_MANY\\|_UNEVALLED"
 		       "\\|_COMMAND_LOOP\\|\\)[ \t\n]*([ \t\n]*\""
-		       (regexp-quote (subr-name fun-or-var))
+		       (regexp-quote (subr-name
+				      (if (consp fun-or-var)
+					  ;; it can be a macro. 
+					  (cdr-safe fun-or-var)
+					fun-or-var)))
 		       "\""))
 	     nil t)
       (error "Can't find source for %s" fun-or-var))