mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

Remove some compat code from allout*.el

Browse source 
* lisp/allout-widgets.el (allout-widgets-mode-inhibit): Ditto.

* lisp/allout.el (allout-use-hanging-indents)
(allout-show-bodies, allout-old-style-prefixes)
(allout-stylish-prefixes): `booleanp' is always defined.
This commit is contained in:
Lars Ingebrigtsen 2020-08-12 18:34:29 +02:00
parent 77907b29e0
commit 67bd8a4874
2 changed files with 5 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/allout-widgets.el
View file

@ -323,8 +323,7 @@ In addition, you can invoked `allout-widgets-mode' allout-mode
buffers where this is set to enable and disable widget
enhancements, directly.")
;;;###autoload
(put 'allout-widgets-mode-inhibit 'safe-local-variable
(if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil)))))
(put 'allout-widgets-mode-inhibit 'safe-local-variable 'booleanp)
(make-variable-buffer-local 'allout-widgets-mode-inhibit)
;;;_ = allout-inhibit-body-modification-hook
(defvar allout-inhibit-body-modification-hook nil

12
lisp/allout.el
View file

@ -410,8 +410,7 @@ where auto-fill occurs."
:group 'allout)
(make-variable-buffer-local 'allout-use-hanging-indents)
;;;###autoload
(put 'allout-use-hanging-indents 'safe-local-variable
(if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil)))))
(put 'allout-use-hanging-indents 'safe-local-variable 'booleanp)
;;;_ = allout-reindent-bodies
(defcustom allout-reindent-bodies (if allout-use-hanging-indents
'text)
@ -440,8 +439,7 @@ just the header."
:group 'allout)
(make-variable-buffer-local 'allout-show-bodies)
;;;###autoload
(put 'allout-show-bodies 'safe-local-variable
(if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil)))))
(put 'allout-show-bodies 'safe-local-variable 'booleanp)
;;;_ = allout-beginning-of-line-cycles
(defcustom allout-beginning-of-line-cycles t
@ -662,8 +660,7 @@ are always respected by the topic maneuvering functions."
:group 'allout)
(make-variable-buffer-local 'allout-old-style-prefixes)
;;;###autoload
(put 'allout-old-style-prefixes 'safe-local-variable
(if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil)))))
(put 'allout-old-style-prefixes 'safe-local-variable 'booleanp)
;;;_ = allout-stylish-prefixes -- alternating bullets
(defcustom allout-stylish-prefixes t
"Do fancy stuff with topic prefix bullets according to level, etc.
@ -711,8 +708,7 @@ is non-nil."
:group 'allout)
(make-variable-buffer-local 'allout-stylish-prefixes)
;;;###autoload
(put 'allout-stylish-prefixes 'safe-local-variable
(if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil)))))
(put 'allout-stylish-prefixes 'safe-local-variable 'booleanp)
;;;_ = allout-numbered-bullet
(defcustom allout-numbered-bullet "#"