changeset 3065:3fa430e1aa35

[xemacs-hg @ 2005-11-13 10:52:47 by ben] don't bomb out when fun has no documentation help.el: Don't bomb out when fun has no documentation.
author ben
date Sun, 13 Nov 2005 10:52:48 +0000
parents b350e85a2a5e
children a88e6130a523
files lisp/ChangeLog lisp/help.el
diffstat 2 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sun Nov 13 10:51:18 2005 +0000
+++ b/lisp/ChangeLog	Sun Nov 13 10:52:48 2005 +0000
@@ -1,3 +1,8 @@
+2005-11-13  Ben Wing  <ben@xemacs.org>
+
+	* help.el (function-arglist):
+	Don't bomb out when fun has no documentation.
+
 2005-11-13  Ben Wing  <ben@xemacs.org>
 
 	* simple.el (log-warning-minimum-level):
--- a/lisp/help.el	Sun Nov 13 10:51:18 2005 +0000
+++ b/lisp/help.el	Sun Nov 13 10:52:48 2005 +0000
@@ -1186,7 +1186,8 @@
 		 (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))))