[Top][All Lists]

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

master 67bd8a4 04/11: Remove some compat code from allout*.el

From: Lars Ingebrigtsen
Subject: master 67bd8a4 04/11: Remove some compat code from allout*.el
Date: Wed, 12 Aug 2020 12:59:54 -0400 (EDT)

branch: master
commit 67bd8a48747d28473d366d0c96804abc547a1dfd
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Remove some compat code from allout*.el
    * 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.
 lisp/allout-widgets.el |  3 +--
 lisp/allout.el         | 12 ++++--------
 2 files changed, 5 insertions(+), 10 deletions(-)

diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el
index 2a8dced..159b2aa 100644
--- a/lisp/allout-widgets.el
+++ b/lisp/allout-widgets.el
@@ -323,8 +323,7 @@ In addition, you can invoked `allout-widgets-mode' 
 buffers where this is set to enable and disable widget
 enhancements, directly.")
-(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
diff --git a/lisp/allout.el b/lisp/allout.el
index fad9a17..f52fa05 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -410,8 +410,7 @@ where auto-fill occurs."
   :group 'allout)
 (make-variable-buffer-local 'allout-use-hanging-indents)
-(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
@@ -440,8 +439,7 @@ just the header."
   :group 'allout)
 (make-variable-buffer-local 'allout-show-bodies)
-(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)
-(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)
-(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 "#"

reply via email to

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