[COMMIT] Handle DEFUN_NORETURN, etc in find-function-C-source
APPROVE COMMIT
NOTE: This patch has been committed.
xemacs-packages/xemacs-devel/ChangeLog addition:
2006-08-06 Aidan Kehoe <kehoea(a)parhasard.net>
* find-func.el (find-function-C-source):
Change the regexp for a subr definition to also accept
DEFUN_NORETURN, DEFUN_MANY and the other alternatives available in
lisp.h.
XEmacs Packages source patch:
Diff command: cvs -q diff -Nu
Files affected: xemacs-packages/xemacs-devel/find-func.el
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.10
diff -u -u -r1.10 find-func.el
--- xemacs-packages/xemacs-devel/find-func.el 2006/07/10 21:00:17 1.10
+++ xemacs-packages/xemacs-devel/find-func.el 2006/08/06 09:48:23
＠＠ -199,7 +199,8 ＠＠
(concat "DEFVAR[A-Z_]*[ \t\n]*([ \t\n]*\""
(regexp-quote (symbol-name fun-or-var))
"\"")
- (concat "DEFUN[ \t\n]*([ \t\n]*\""
+ (concat "DEFUN\\(_NORETURN\\|_MANY\\|_UNEVALLED"
+ "\\|_COMMAND_LOOP\\|\\)[ \t\n]*([ \t\n]*\""
(regexp-quote (subr-name fun-or-var))
"\""))
nil t)
--
Santa Maradona, priez pour moi!