From 1d6a83230c4cb43d14b0de5cfae34ddd45ad62e8 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sat, 23 Feb 2002 22:27:39 +0000 Subject: [PATCH] (describe-function-1): Use remap-command. --- lisp/help-fns.el | 4 +--- 1 file changed, 1 insertion(+), 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." (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 -- 2.39.5