[COMMIT PACKAGES] Accept built-in macros in #'find-func

APPROVE COMMIT NOTE: This patch has been committed. xemacs-packages/xemacs-devel/ChangeLog addition: 2007-12-30 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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