Function: repeat-echo-message-string

repeat-echo-message-string is a byte-compiled function defined in repeat.el.gz.

Signature

(repeat-echo-message-string KEYMAP)

Documentation

Return a string with the list of repeating keys in KEYMAP.

Source Code

;; Defined in /usr/src/emacs/lisp/repeat.el.gz
(defun repeat-echo-message-string (keymap)
  "Return a string with the list of repeating keys in KEYMAP."
  (let (keys)
    (map-keymap (lambda (key cmd) (and cmd (push key keys))) keymap)
    (format-message "Repeat with %s%s"
                    (mapconcat (lambda (key)
                                 (substitute-command-keys
                                  (format "\\`%s'"
                                          (key-description (vector key)))))
                               keys ", ")
                    (if repeat-exit-key
                        (substitute-command-keys
                         (format ", or exit with \\`%s'"
                                 (if (key-valid-p repeat-exit-key)
                                     repeat-exit-key
                                   (key-description repeat-exit-key))))
                      ""))))