# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 764398460 0
# Node ID 2e28b96d5b64315db04df20357c90078f26049c2
# Parent  e7db7f9c1fb461d73d5338950fd2dc0a4fdd928f
(where-is): New function.

diff -r e7db7f9c1fb4 -r 2e28b96d5b64 lisp/help.el
--- a/lisp/help.el	Wed Mar 23 04:51:55 1994 +0000
+++ b/lisp/help.el	Wed Mar 23 04:54:20 1994 +0000
@@ -421,6 +421,26 @@
     ;; Return the text we displayed.
     (save-excursion (set-buffer standard-output) (buffer-string))))
 
+(defun where-is (definition)
+  "Print message listing key sequences that invoke specified command.
+Argument is a command definition, usually a symbol with a function definition."
+  (interactive
+   (let ((fn (function-called-at-point))
+	 (enable-recursive-minibuffers t)	     
+	 val)
+     (setq val (completing-read (if fn
+				    (format "Where is command (default %s): " fn)
+				  "Where is command: ")
+				obarray 'fboundp t))
+     (list (if (equal val "")
+	       fn (intern val)))))
+  (let* ((keys (where-is-internal definition overriding-local-map nil nil))
+	 (keys1 (mapconcat 'key-description keys ", ")))
+    (if (> (length keys1) 0)
+	(message "%s is on %s" definition keys1)
+      (message "%s is not on any key" definition)))
+  nil)
+
 (defun command-apropos (string)
   "Like apropos but lists only symbols that are names of commands
 \(interactively callable functions).  Argument REGEXP is a regular expression