mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-26 10:49:33 +00:00
Add a basic widget type for buffer predicates
* lisp/paren.el (show-paren-predicate): * lisp/outline.el (outline-minor-mode-use-buttons): Use it. * lisp/wid-edit.el (buffer-predicate): New widget type.
This commit is contained in:
parent
9aed695241
commit
ad6878005d
@ -288,8 +288,7 @@ 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."
|
||||
;; FIXME -- is there a `buffer-match-p' defcustom type somewhere?
|
||||
:type 'sexp
|
||||
:type 'buffer-predicate
|
||||
:safe #'booleanp
|
||||
:version "29.1")
|
||||
|
||||
|
@ -123,7 +123,7 @@ On non-graphical frames, the context is shown in the echo area."
|
||||
The default is to enable the mode in all buffers that have don't
|
||||
derive from `special-mode', which means that it's on (by default)
|
||||
in all editing buffers."
|
||||
:type 'sexp
|
||||
:type 'buffer-predicate
|
||||
:safe #'booleanp
|
||||
:version "29.1")
|
||||
|
||||
|
@ -4145,6 +4145,15 @@ is inline."
|
||||
(define-obsolete-function-alias 'widget-visibility-value-create
|
||||
#'widget-toggle-value-create "29.1")
|
||||
|
||||
;;; Buffer predicates.
|
||||
(define-widget 'buffer-predicate 'lazy
|
||||
"A buffer predicate."
|
||||
:tag "Buffer predicate"
|
||||
:type '(choice (const :tag "All buffers" t)
|
||||
(const :tag "No buffers" nil)
|
||||
;; FIXME: This should be expanded somehow.
|
||||
sexp))
|
||||
|
||||
(provide 'wid-edit)
|
||||
|
||||
;;; wid-edit.el ends here
|
||||
|
Loading…
Reference in New Issue
Block a user