aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKim F. Storm2002-02-23 22:27:39 +0000
committerKim F. Storm2002-02-23 22:27:39 +0000
commit1d6a83230c4cb43d14b0de5cfae34ddd45ad62e8 (patch)
treeb66c1701c7c00a906efba83e0723e28d5a4d7014
parenta2f9aa84c3c70a84f8c1827278f762daddb95d10 (diff)
downloademacs-1d6a83230c4cb43d14b0de5cfae34ddd45ad62e8.tar.gz
emacs-1d6a83230c4cb43d14b0de5cfae34ddd45ad62e8.zip
(describe-function-1): Use remap-command.
-rw-r--r--lisp/help-fns.el4
1 files changed, 1 insertions, 3 deletions
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."
207 (princ ".") 207 (princ ".")
208 (terpri) 208 (terpri)
209 (when (commandp function) 209 (when (commandp function)
210 (let* ((binding (and (symbolp function) (commandp function) 210 (let* ((remapped (remap-command function))
211 (key-binding function nil t)))
212 (remapped (and (symbolp binding) (commandp binding) binding))
213 (keys (where-is-internal 211 (keys (where-is-internal
214 (or remapped function) overriding-local-map nil nil))) 212 (or remapped function) overriding-local-map nil nil)))
215 (when remapped 213 (when remapped