Commits

Anonymous committed b7dd669

Accept built-in macros in #'find-func.

Comments (0)

Files changed (2)

+2007-12-30  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* find-func.el (find-function-C-source):
+	Accept built-in macros in this function. 
+
 2007-09-17  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.76 released.
 			 "\"")
 	       (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))