# HG changeset patch
# User ben
# Date 1131879168 0
# Node ID 3fa430e1aa35e24ae8b4e7b2fbd7c865c9093837
# Parent  b350e85a2a5e25fb626931df394e9b703e27cc0b
[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.

diff -r b350e85a2a5e -r 3fa430e1aa35 lisp/ChangeLog
--- 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):
diff -r b350e85a2a5e -r 3fa430e1aa35 lisp/help.el
--- 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))))