APPROVE COMMIT NOTE: This patch has been committed. xemacs-packages/xemacs-devel/ChangeLog addition: 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. 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!