User: ben Date: 05/11/13 11:52:49 Modified: xemacs/lisp ChangeLog help.el Log: don't bomb out when fun has no documentation help.el: Don't bomb out when fun has no documentation. Revision Changes Path 1.694 +5 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.693 retrieving revision 1.694 diff -u -p -r1.693 -r1.694 --- ChangeLog 2005/11/13 10:51:17 1.693 +++ ChangeLog 2005/11/13 10:52:47 1.694 ＠＠ -1,5 +1,10 ＠＠ 2005-11-13 Ben Wing <ben(a)xemacs.org&gt; + * help.el (function-arglist): + Don't bomb out when fun has no documentation. + +2005-11-13 Ben Wing <ben(a)xemacs.org&gt; + * simple.el (log-warning-minimum-level): * simple.el (display-warning-minimum-level): `foo.' -> `foo'. 1.46 +2 -1 XEmacs/xemacs/lisp/help.el Index: help.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/help.el,v retrieving revision 1.45 retrieving revision 1.46 diff -u -p -r1.45 -r1.46 --- help.el 2005/10/10 02:45:32 1.45 +++ help.el 2005/11/13 10:52:48 1.46 ＠＠ -1186,7 +1186,8 ＠＠ arguments in the standard Lisp style." (nth 1 fndef)) ((subrp fndef) (let* ((doc (documentation function)) - (args (and (string-match + (args (and doc + (string-match "[\n\t ]*\narguments: ?(\\(.*\\))\n?\\'" doc) (match-string 1 doc))))