User: aidan Date: 06/08/06 11:51:25 Modified: packages/xemacs-packages/xemacs-devel ChangeLog find-func.el Log: Handle DEFUN_NORETURN, etc in find-function-C-source. Revision Changes Path 1.108 +7 -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.107 retrieving revision 1.108 diff -u -p -r1.107 -r1.108 --- ChangeLog 2006/07/11 04:45:42 1.107 +++ ChangeLog 2006/08/06 09:51:25 1.108 ＠＠ -1,3 +1,10 ＠＠ +2006-08-06 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * 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. + 2006-07-11 Norbert Koch <viteno(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 1.74 released. 1.11 +2 -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.10 retrieving revision 1.11 diff -u -p -r1.10 -r1.11 --- find-func.el 2006/07/10 21:00:17 1.10 +++ find-func.el 2006/08/06 09:51:25 1.11 ＠＠ -199,7 +199,8 ＠＠ TYPE should be nil to find a function, o (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)