* 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.
(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)))