# HG changeset patch
# User Didier Verna <didier@xemacs.org>
# Date 1270807274 -7200
# Node ID fa5d6416887f4fc477bcb7e955f180c22889ce17
# Parent  77907bd57d25f39769b0d7d3726d94fc61b3372f
Fix for unavailable arglists in hyper-apropos.

lisp/ChangeLog addition:

2010-04-09  Didier Verna  <didier@xemacs.org>

	* hyper-apropos.el (hyper-apropos-get-doc): Use [not available]
	when a function's arglist is unknown (this happens for autoloaded
	functions).

diff -r 77907bd57d25 -r fa5d6416887f lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Apr 07 14:38:41 2010 +0200
+++ b/lisp/ChangeLog	Fri Apr 09 12:01:14 2010 +0200
@@ -1,3 +1,9 @@
+2010-04-09  Didier Verna  <didier@xemacs.org>
+
+	* hyper-apropos.el (hyper-apropos-get-doc): Use [not available]
+	when a function's arglist is unknown (this happens for autoloaded
+	functions).
+
 2010-04-07  Didier Verna  <didier@xemacs.org>
 
 	* font-lock.el (lisp-font-lock-keywords-2): Add missing CL style
diff -r 77907bd57d25 -r fa5d6416887f lisp/hyper-apropos.el
--- a/lisp/hyper-apropos.el	Wed Apr 07 14:38:41 2010 +0200
+++ b/lisp/hyper-apropos.el	Fri Apr 09 12:01:14 2010 +0200
@@ -772,11 +772,14 @@
 		     global (current-global-map)
 		     obsolete (get symbol 'byte-obsolete-info)
 		     doc (function-documentation symbol t)
-                     arglist (replace-in-string
-                              (function-arglist symbol)
-                              (format "^(%s "
-                                      (regexp-quote (symbol-name symbol)))
-                              "("))
+                     arglist (let ((farglist (function-arglist symbol)))
+			       (if farglist
+				   (replace-in-string
+				    farglist
+				    (format "^(%s "
+					(regexp-quote (symbol-name symbol)))
+				    "(")
+				 "[not available]")))
 	       (save-excursion
 		 (set-buffer hyper-apropos-help-buf)
 		 (goto-char (point-max))