Mercurial > hg > xemacs-beta

comparison lisp/hyper-apropos.el @ 5199:49e931565616

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Mon, 12 Apr 2010 00:53:18 -0500
parents fa5d6416887f
children 9058351b0236
comparison
equal deleted inserted replaced
5198:bc3ede8f29a8 5199:49e931565616
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)