Function: help--for-help-make-commands
help--for-help-make-commands is a byte-compiled function defined in
help.el.gz.
Signature
(help--for-help-make-commands COMMANDS)
Documentation
Create commands for help-for-help screen from COMMANDS.
Source Code
;; Defined in /usr/src/emacs/lisp/help.el.gz
(defun help--for-help-make-commands (commands)
"Create commands for `help-for-help' screen from COMMANDS."
(mapconcat
(lambda (cmd)
(if (listp cmd)
(let ((name (car cmd)) (desc (cadr cmd)))
(concat
" "
(if (string-match (rx string-start "C-" word string-end) name)
;; `help--key-description-fontified' would convert "C-m" to
;; "RET" so we can't use it here.
(propertize name 'face 'help-key-binding)
(concat "\\[" name "]"))
" " ; ensure we have some whitespace before the description
(propertize "\t" 'display '(space :align-to 8))
desc))
""))
commands "\n"))