diff options
Diffstat (limited to 'lisp/help.el')
-rw-r--r-- | lisp/help.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/help.el b/lisp/help.el index 83be85b1ee4..6eac037df2c 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -689,6 +689,10 @@ To record all your input, use `open-dribble-file'." (with-current-buffer standard-output (goto-char (point-min)) (let ((comment-start ";; ") + ;; Prevent 'comment-indent' from handling a single + ;; semicolon as the beginning of a comment. + (comment-start-skip ";; ") + (comment-use-syntax nil) (comment-column 24)) (while (not (eobp)) (comment-indent) @@ -717,6 +721,12 @@ Return nil if KEYS is nil." :group 'help :version "29.1") +(defcustom describe-bindings-show-prefix-commands nil + "Non-nil means show prefix commands in the output of `describe-bindings'." + :type 'boolean + :group 'help + :version "29.1") + (declare-function outline-hide-subtree "outline") (defun describe-bindings (&optional prefix buffer) @@ -1699,6 +1709,7 @@ in `describe-map-tree'." (setq vect (cdr vect)) (setq end (caar vect)))) (when (or (not (eq start end)) + describe-bindings-show-prefix-commands ;; Don't output keymap prefixes. (not (keymapp definition))) (when first |