]> git.eshelyaron.com Git - emacs.git/commitdiff
Adjust outline--use-buttons-p to buffer-match-p change
authorLars Ingebrigtsen <larsi@gnus.org>
Sat, 30 Jul 2022 10:50:47 +0000 (12:50 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Sat, 30 Jul 2022 10:50:47 +0000 (12:50 +0200)
* 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

index a68f648bd82c62cb190462284636fe463db7714c..6837722e6447f89b86db6a28e436b20fba3d4377 100644 (file)
@@ -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.