[COMMIT PACKAGES] Accept built-in macros in #'find-func

[Aidan Kehoe]

APPROVE COMMIT

NOTE: This patch has been committed.

xemacs-packages/xemacs-devel/ChangeLog addition:

2007-12-30  Aidan Kehoe  <kehoea at parhasard.net>

	* find-func.el (find-function-C-source):
	Accept built-in macros in this function. 


XEmacs Packages source patch:
Diff command:   cvs -q diff -Nu
Files affected: xemacs-packages/xemacs-devel/find-func.el
===================================================================
RCS

Index: xemacs-packages/xemacs-devel/find-func.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-devel/find-func.el,v
retrieving revision 1.11
diff -u -u -r1.11 find-func.el
--- xemacs-packages/xemacs-devel/find-func.el	2006/08/06 09:51:25	1.11
+++ xemacs-packages/xemacs-devel/find-func.el	2007/12/30 14:23:51
@@ -201,7 +201,11 @@
 			 "\"")
 	       (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))

-- 
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?