diff options
| author | Kim F. Storm | 2002-02-23 22:27:39 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2002-02-23 22:27:39 +0000 |
| commit | 1d6a83230c4cb43d14b0de5cfae34ddd45ad62e8 (patch) | |
| tree | b66c1701c7c00a906efba83e0723e28d5a4d7014 | |
| parent | a2f9aa84c3c70a84f8c1827278f762daddb95d10 (diff) | |
| download | emacs-1d6a83230c4cb43d14b0de5cfae34ddd45ad62e8.tar.gz emacs-1d6a83230c4cb43d14b0de5cfae34ddd45ad62e8.zip | |
(describe-function-1): Use remap-command.
| -rw-r--r-- | lisp/help-fns.el | 4 |
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 |