Mercurial > hg > xemacs-beta

changeset 5195:fa5d6416887f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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).
author Didier Verna <didier@xemacs.org>
date Fri, 09 Apr 2010 12:01:14 +0200
parents 77907bd57d25
children c87ec061e8cc
files lisp/ChangeLog lisp/hyper-apropos.el
diffstat 2 files changed, 14 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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))