* subr.el (booleanp): Return t instead of a list (Bug#7086).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c25e49a8c8d8c643c7b33ce84e315b94f3421f7f..d2a75cdc227308264858d3b5163f78ec10a47a52 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-10-03  Kevin Rodgers  <kevin.d.rodgers@gmail.com>
+
+       * subr.el (booleanp): Return t instead of a list (Bug#7086).
+
 2010-10-03  Chong Yidong  <cyd@stupidchicken.com>
 
        * server.el (server-process-filter, server-return-error): Give

diff --git a/lisp/subr.el b/lisp/subr.el
index 49a10bed9a8a064f056d68a82bdf1f7933813d23..82e1988156a2cc880769b91f18d52f68025d692c 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2420,8 +2420,9 @@ Otherwise, return nil."
   (or (stringp object) (null object)))
 
 (defun booleanp (object)
-  "Return non-nil if OBJECT is one of the two canonical boolean values: t or nil."
-  (memq object '(nil t)))
+  "Return t if OBJECT is one of the two canonical boolean values: t or nil.
+Otherwise, return nil."
+  (and (memq object '(nil t)) t))
 
 (defun field-at-pos (pos)
   "Return the field at position POS, taking stickiness etc into account."