590 |
(goto-char position))) |
(goto-char position))) |
591 |
;; Ok, now look up the key and name the command. |
;; Ok, now look up the key and name the command. |
592 |
(let ((defn (or (string-key-binding key) |
(let ((defn (or (string-key-binding key) |
593 |
(key-binding key))) |
(key-binding key t))) |
594 |
key-desc) |
key-desc) |
595 |
;; Don't bother user with strings from (e.g.) the select-paste menu. |
;; Don't bother user with strings from (e.g.) the select-paste menu. |
596 |
(if (stringp (aref key (1- (length key)))) |
(if (stringp (aref key (1- (length key)))) |
635 |
(when (windowp window) |
(when (windowp window) |
636 |
(set-buffer (window-buffer window)) |
(set-buffer (window-buffer window)) |
637 |
(goto-char position)) |
(goto-char position)) |
638 |
(let ((defn (or (string-key-binding key) (key-binding key)))) |
(let ((defn (or (string-key-binding key) (key-binding key t)))) |
639 |
(if (or (null defn) (integerp defn) (equal defn 'undefined)) |
(if (or (null defn) (integerp defn) (equal defn 'undefined)) |
640 |
(message "%s is undefined" (help-key-description key untranslated)) |
(message "%s is undefined" (help-key-description key untranslated)) |
641 |
(help-setup-xref (list #'describe-function defn) (interactive-p)) |
(help-setup-xref (list #'describe-function defn) (interactive-p)) |