Mercurial > hg > xemacs-beta

comparison lisp/packages/hyper-apropos.el @ 207:e45d5e7c476e r20-4b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b2
author cvs
date Mon, 13 Aug 2007 10:03:52 +0200
parents 3d6bfa290dbd
children 41ff10fd062f
comparison
equal deleted inserted replaced
206:d3e9274cbc4e 207:e45d5e7c476e
531 (defun hyper-apropos-read-function-symbol (prompt) 531 (defun hyper-apropos-read-function-symbol (prompt)
532 "Read function symbol from minibuffer." 532 "Read function symbol from minibuffer."
533 (let ((fn (hyper-apropos-this-symbol)) 533 (let ((fn (hyper-apropos-this-symbol))
534 val) 534 val)
535 (or (fboundp fn) 535 (or (fboundp fn)
536 (setq fn (function-called-at-point))) 536 (setq fn (function-at-point)))
537 (setq val (let ((enable-recursive-minibuffers t)) 537 (setq val (let ((enable-recursive-minibuffers t))
538 (completing-read (if fn 538 (completing-read (if fn
539 (format "%s (default %s): " prompt fn) 539 (format "%s (default %s): " prompt fn)
540 (format "%s: " prompt)) 540 (format "%s: " prompt))
541 obarray 'fboundp t nil 541 obarray 'fboundp t nil