Mercurial > hg > xemacs-beta

comparison lisp/hyper-apropos.el @ 384:bbff43aa5eb7 r21-2-7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-7
author cvs
date Mon, 13 Aug 2007 11:08:24 +0200
parents 8626e4521993
children 74fd4e045ea6
comparison
equal deleted inserted replaced
383:6a50c6a581a5 384:bbff43aa5eb7
479 (message "Sorry, nothing to describe.") 479 (message "Sorry, nothing to describe.")
480 (or (memq major-mode '(hyper-apropos-mode hyper-apropos-help-mode)) 480 (or (memq major-mode '(hyper-apropos-mode hyper-apropos-help-mode))
481 (setq hyper-apropos-prev-wconfig (current-window-configuration))) 481 (setq hyper-apropos-prev-wconfig (current-window-configuration)))
482 (hyper-apropos-get-doc symbol t nil this-ref-buffer))) 482 (hyper-apropos-get-doc symbol t nil this-ref-buffer)))
483 483
484 ;;;###autoload
484 (defun hyper-where-is (symbol) 485 (defun hyper-where-is (symbol)
485 "Print message listing key sequences that invoke specified command." 486 "Print message listing key sequences that invoke specified command."
486 (interactive (list (hyper-apropos-read-function-symbol "Where is function"))) 487 (interactive (list (hyper-apropos-read-function-symbol "Where is function")))
487 (if (null symbol) 488 (if (null symbol)
488 (message "Sorry, nothing to describe.") 489 (message "Sorry, nothing to describe.")