APPROVE COMMIT
NOTE: This patch has been committed.
xemacs-packages/xemacs-devel/ChangeLog addition:
2007-12-30 Aidan Kehoe <kehoea(a)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?
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches