Mercurial > hg > xemacs-beta

comparison lisp/hyper-apropos.el @ 325:f2b5d7006b0a r21-0-60

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-60
author cvs
date Mon, 13 Aug 2007 10:47:35 +0200
parents 70ad99077275
children 8e84bee8ddd0
comparison
equal deleted inserted replaced
324:8f2460f6e1f6 325:f2b5d7006b0a
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.")