mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 07:01:11 -08:00
Code Issues Projects Releases Wiki Activity

Adjust outline--use-buttons-p to buffer-match-p change

Browse source 
* lisp/outline.el (outline-minor-mode-use-buttons): Adjust doc string.
(outline--use-buttons-p): No longer any need to special-case t/nil.
This commit is contained in:
Lars Ingebrigtsen 2022-07-30 12:50:47 +02:00
parent 2539039335
commit 30f598bcc1
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/outline.el
View 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.