]> git.eshelyaron.com Git - emacs.git/commitdiff
Remove dead branch from substitute-command-keys
authorStefan Kangas <stefan@marxist.se>
Mon, 11 Jul 2022 15:21:23 +0000 (17:21 +0200)
committerStefan Kangas <stefan@marxist.se>
Mon, 11 Jul 2022 15:22:19 +0000 (17:22 +0200)
* 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.

lisp/help.el

index d7ee1a84a43dadd01de48f334b9a4d83650d07d6..abe17fa4ce2a876dda14874658ce26d47e7a7e75 100644 (file)
@@ -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)))