emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 30f598bcc1: Adjust outline--use-buttons-p to buffer-match-p chang


From: Lars Ingebrigtsen
Subject: master 30f598bcc1: Adjust outline--use-buttons-p to buffer-match-p change
Date: Sat, 30 Jul 2022 06:51:10 -0400 (EDT)

branch: master
commit 30f598bcc1371dbf27ea034d260fe35baf0905f9
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 a68f648bd8..6837722e64 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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]