Mercurial > emacs
comparison lisp/help.el @ 61423:f2d616f518a5
(describe-key-briefly, describe-key): Replace
strings as event types with "(any string)".
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 10 Apr 2005 01:47:43 +0000 |
parents | 456199ab7d27 |
children | a5836c00c2ae |
comparison
equal
deleted
inserted
replaced
61422:6b6f4fcc8035 | 61423:f2d616f518a5 |
---|---|
584 (set-buffer (window-buffer window)) | 584 (set-buffer (window-buffer window)) |
585 (goto-char position))) | 585 (goto-char position))) |
586 ;; Ok, now look up the key and name the command. | 586 ;; Ok, now look up the key and name the command. |
587 (let ((defn (or (string-key-binding key) | 587 (let ((defn (or (string-key-binding key) |
588 (key-binding key))) | 588 (key-binding key))) |
589 (key-desc (help-key-description key untranslated))) | 589 key-desc) |
590 ;; Don't bother user with strings from (e.g.) the select-paste menu. | |
591 (if (stringp (aref key (1- (length key)))) | |
592 (aset key (1- (length key)) "(any string)")) | |
593 (if (stringp (aref untranslated (1- (length untranslated)))) | |
594 (aset untranslated (1- (length untranslated)) | |
595 "(any string)")) | |
596 ;; Now describe the key, perhaps as changed. | |
597 (setq key-desc (help-key-description key untranslated)) | |
590 (if (or (null defn) (integerp defn) (equal defn 'undefined)) | 598 (if (or (null defn) (integerp defn) (equal defn 'undefined)) |
591 (princ (format "%s is undefined" key-desc)) | 599 (princ (format "%s is undefined" key-desc)) |
592 (princ (format (if (windowp window) | 600 (princ (format (if (windowp window) |
593 "%s at that spot runs the command %s" | 601 "%s at that spot runs the command %s" |
594 "%s runs the command %s") | 602 "%s runs the command %s") |
621 (goto-char position)) | 629 (goto-char position)) |
622 (let ((defn (or (string-key-binding key) (key-binding key)))) | 630 (let ((defn (or (string-key-binding key) (key-binding key)))) |
623 (if (or (null defn) (integerp defn) (equal defn 'undefined)) | 631 (if (or (null defn) (integerp defn) (equal defn 'undefined)) |
624 (message "%s is undefined" (help-key-description key untranslated)) | 632 (message "%s is undefined" (help-key-description key untranslated)) |
625 (help-setup-xref (list #'describe-function defn) (interactive-p)) | 633 (help-setup-xref (list #'describe-function defn) (interactive-p)) |
634 ;; Don't bother user with strings from (e.g.) the select-paste menu. | |
635 (if (stringp (aref key (1- (length key)))) | |
636 (aset key (1- (length key)) "(any string)")) | |
637 (if (stringp (aref untranslated (1- (length untranslated)))) | |
638 (aset untranslated (1- (length untranslated)) | |
639 "(any string)")) | |
626 (with-output-to-temp-buffer (help-buffer) | 640 (with-output-to-temp-buffer (help-buffer) |
627 (princ (help-key-description key untranslated)) | 641 (princ (help-key-description key untranslated)) |
628 (if (windowp window) | 642 (if (windowp window) |
629 (princ " at that spot")) | 643 (princ " at that spot")) |
630 (princ " runs the command ") | 644 (princ " runs the command ") |