[elpa] externals/captain 66584d2 04/11: captain: Change default predicate to a function, and call it unconditionally

[Stefan Monnier]

branch: externals/captain
commit 66584d2e2596d1d9feae7f82786fcd94c5cc2b07
Author: Ian Dunn <dunni@gnu.org>
Commit: Ian Dunn <dunni@gnu.org>

    captain: Change default predicate to a function, and call it unconditionally
    
    * packages/captain/captain.el (captain--default-predicate): New defun.
      (captain-predicate): Use it by default.
---
 captain.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/captain.el b/captain.el
index 90cd9ad..7fba719 100644
--- a/captain.el
+++ b/captain.el
@@ -53,7 +53,13 @@
 (eval-when-compile (require 'subr-x))
 (require 'thingatpt)
 
-(defvar-local captain-predicate nil
+(defun captain--default-predicate ()
+  "The default predicate for determining whether the captain should work.
+
+He does nothing by default."
+  nil)
+
+(defvar-local captain-predicate #'captain--default-predicate
   "Predicate to check for whether auto-capitalization should be handled.
 
 Should be a function of no arguments, and return non-nil if
@@ -68,8 +74,7 @@ function of your choosing.")
 
 (defun captain-should-capitalize-p ()
   "Return non-nil if the captain should auto-capitalize your work."
-  (when captain-predicate
-    (funcall captain-predicate)))
+  (funcall captain-predicate))
 
 (defun captain--default-sentence-start ()
   "Default value of `captain-sentence-start-function'.