From 30f598bcc1371dbf27ea034d260fe35baf0905f9 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 30 Jul 2022 12:50:47 +0200 Subject: [PATCH] Adjust outline--use-buttons-p to buffer-match-p change * lisp/outline.el (outline-minor-mode-use-buttons): Adjust doc string. (outline--use-buttons-p): No longer any need to special-case t/nil. --- lisp/outline.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/lisp/outline.el b/lisp/outline.el index a68f648bd82..6837722e644 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -283,13 +283,13 @@ This option is only in effect when `outline-minor-mode-cycle' is non-nil." (defcustom outline-minor-mode-use-buttons '(derived-mode . special-mode) "Whether to display clickable buttons on the headings. -The value should be a `buffer-match-p' condition, or nil to -disable in all buffers and t to enable in all buffers. +The value should be a `buffer-match-p' condition. These buttons can be used to hide and show the body under the heading. Note that this feature is not meant to be used in editing buffers (yet) -- that will be amended in a future version." :type 'boolean + ;; FIXME -- is there a `buffer-match-p' defcustom type somewhere? :safe #'booleanp :version "29.1") @@ -478,10 +478,7 @@ See the command `outline-mode' for more information on this mode." (defun outline--use-buttons-p () (and outline-minor-mode - outline-minor-mode-use-buttons - (or (eq outline-minor-mode-use-buttons t) - (buffer-match-p outline-minor-mode-use-buttons - (current-buffer))))) + (buffer-match-p outline-minor-mode-use-buttons (current-buffer)))) (defvar-local outline-heading-alist () "Alist associating a heading for every possible level. -- 2.39.2