From: Stefan Kangas <stefan@marxist.se>
Date: Mon, 11 Jul 2022 15:21:23 +0000 (+0200)
Subject: Remove dead branch from substitute-command-keys
X-Git-Tag: emacs-29.0.90~1447^2~1002
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac0027f6a5480bd4739fdf71413a19012f400483;p=emacs.git

Remove dead branch from substitute-command-keys

* lisp/help.el (substitute-command-keys): Remove dead branch;
where-is-internal will follow any remaps for us.  Note also that the
test case for remapping still pass.
---

diff --git a/lisp/help.el b/lisp/help.el
index d7ee1a84a43..abe17fa4ce2 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1192,14 +1192,6 @@ Otherwise, return a new string."
                 (let* ((fun (intern (buffer-substring (point) (1- end-point))))
                        (key (with-current-buffer orig-buf
                               (where-is-internal fun keymap t))))
-                  ;; If this a command remap, we need to follow it.
-                  (when (and (vectorp key)
-                             (> (length key) 1)
-                             (eq (aref key 0) 'remap)
-                             (symbolp (aref key 1)))
-                    (setq fun (aref key 1))
-                    (setq key (with-current-buffer orig-buf
-                                (where-is-internal fun keymap t))))
                   (if (not key)
                       ;; Function is not on any key.
                       (let ((op (point)))