From ac0027f6a5480bd4739fdf71413a19012f400483 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 11 Jul 2022 17:21:23 +0200 Subject: [PATCH] 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. --- lisp/help.el | 8 -------- 1 file changed, 8 deletions(-) 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))) -- 2.39.5