From: Kim F. Storm <storm@cua.dk>
Date: Sat, 23 Feb 2002 22:27:39 +0000 (+0000)
Subject: (describe-function-1): Use remap-command.
X-Git-Tag: ttn-vms-21-2-B4~16503
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d6a83230c4cb43d14b0de5cfae34ddd45ad62e8;p=emacs.git

(describe-function-1): Use remap-command.
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 20d76f9c913..4b4f78c0847 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -207,9 +207,7 @@ and the file name is displayed in the echo area."
     (princ ".")
     (terpri)
     (when (commandp function)
-      (let* ((binding (and (symbolp function) (commandp function)
-			   (key-binding function nil t)))
-	     (remapped (and (symbolp binding) (commandp binding) binding))
+      (let* ((remapped (remap-command function))
 	     (keys (where-is-internal
 		   (or remapped function) overriding-local-map nil nil)))
 	(when remapped