CVS update by ben xemacs/lisp ...
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>
+ * help.el (function-arglist):
+ Don't bomb out when fun has no documentation.
+
+2005-11-13 Ben Wing <ben(a)xemacs.org>
+
* 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))))