Function: help--lossage-make-recent-keys

help--lossage-make-recent-keys is a byte-compiled function defined in help.el.gz.

Signature

(help--lossage-make-recent-keys &optional MOST-RECENT)

Documentation

Return a string containing all the recent keys and its commands.

If MOST-RECENT is non-nil, only return the most recent key and its command.

Source Code

;; Defined in /usr/src/emacs/lisp/help.el.gz
(defun help--lossage-make-recent-keys (&optional most-recent)
  "Return a string containing all the recent keys and its commands.
If MOST-RECENT is non-nil, only return the most recent key and its
command."
  (let ((keys
         (if most-recent
             `[,@(this-single-command-raw-keys) (nil . ,this-command)]
           (recent-keys 'include-cmds))))
    (mapconcat
     (lambda (key)
       (cond
        ((and (consp key) (null (car key)))
         (concat
          ";; "
          (if (symbolp (cdr key))
              (buttonize
               (symbol-name (cdr key))
               (lambda (&rest _)
                 (interactive)
                 (describe-function (cdr key)))
               "mouse-1: go to the documentation for this command.")
	    (propertize "anonymous-command" 'face 'shadow))
          "\n"))
        ((or (integerp key) (symbolp key) (listp key))
         (propertize (single-key-description key)
                     'face 'help-key-binding
                     'rear-nonsticky t))
        (t
         (propertize (prin1-to-string key nil)
                     'face 'help-key-binding
                     'rear-nonsticky t))))
     keys
     " ")))