Mercurial > hg > xemacs-beta

comparison lisp/hyper-apropos.el @ 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 bd1e25975cdc
children 9058351b0236
comparison
equal deleted inserted replaced
5194:77907bd57d25 5195:fa5d6416887f
770 "\")") 770 "\")")
771 local (current-local-map) 771 local (current-local-map)
772 global (current-global-map) 772 global (current-global-map)
773 obsolete (get symbol 'byte-obsolete-info) 773 obsolete (get symbol 'byte-obsolete-info)
774 doc (function-documentation symbol t) 774 doc (function-documentation symbol t)
775 arglist (replace-in-string 775 arglist (let ((farglist (function-arglist symbol)))
776 (function-arglist symbol) 776 (if farglist
777 (format "^(%s " 777 (replace-in-string
778 (regexp-quote (symbol-name symbol))) 778 farglist
779 "(")) 779 (format "^(%s "
780 (regexp-quote (symbol-name symbol)))
781 "(")
782 "[not available]")))
780 (save-excursion 783 (save-excursion
781 (set-buffer hyper-apropos-help-buf) 784 (set-buffer hyper-apropos-help-buf)
782 (goto-char (point-max)) 785 (goto-char (point-max))
783 (setq standard-output (current-buffer)) 786 (setq standard-output (current-buffer))
784 (hyper-apropos-insert-section-heading alias-desc desc) 787 (hyper-apropos-insert-section-heading alias-desc desc)