473 |
(let ((defn (or (string-key-binding key) |
(let ((defn (or (string-key-binding key) |
474 |
(key-binding key))) |
(key-binding key))) |
475 |
(key-desc (key-description key))) |
(key-desc (key-description key))) |
476 |
(if (or (null defn) (integerp defn)) |
(if (or (null defn) (integerp defn) (equal defn 'undefined)) |
477 |
(princ (format "%s is undefined" key-desc)) |
(princ (format "%s is undefined" key-desc)) |
478 |
(princ (format (if (windowp window) |
(princ (format (if (windowp window) |
479 |
"%s at that spot runs the command %s" |
"%s at that spot runs the command %s" |
501 |
(set-buffer (window-buffer window)) |
(set-buffer (window-buffer window)) |
502 |
(goto-char position)) |
(goto-char position)) |
503 |
(let ((defn (or (string-key-binding key) (key-binding key)))) |
(let ((defn (or (string-key-binding key) (key-binding key)))) |
504 |
(if (or (null defn) (integerp defn)) |
(if (or (null defn) (integerp defn) (equal defn 'undefined)) |
505 |
(message "%s is undefined" (key-description key)) |
(message "%s is undefined" (key-description key)) |
506 |
(help-setup-xref (list #'describe-function defn) (interactive-p)) |
(help-setup-xref (list #'describe-function defn) (interactive-p)) |
507 |
(with-output-to-temp-buffer (help-buffer) |
(with-output-to-temp-buffer (help-buffer) |