lisp/frameset.el (frameset-valid-p): Fix check; STATES can indeed be nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ed1aa7c18f0f4062aba52ca455434f8455a579de..ac360a3e422241fa1466681ca21e7f0fe3b24b79 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-08-11  Juanma Barranquero  <lekktu@gmail.com>
+
+       * frameset.el (frameset-valid-p): Fix check; STATES can indeed be nil.
+
 2013-08-10  Juanma Barranquero  <lekktu@gmail.com>
 
        * tutorial.el (tutorial--describe-nonstandard-key): Use string-match-p.

diff --git a/lisp/frameset.el b/lisp/frameset.el
index 132cbcd48566b94ad8e6fa1d4df8dca40a2b9f0e..a347599bb51fa53e8c40c4893bb8c4bdab1c8d44 100644 (file)
--- a/lisp/frameset.el
+++ b/lisp/frameset.el
@@ -156,7 +156,7 @@ a valid one, and the frameset version if it is valid."
        (stringp (or (aref object 4) ""))  ; NAME is a string or nil
        (stringp (or (aref object 5) ""))  ; DESCRIPTION is a string or nil
        (listp (aref object 6))            ; PROPERTIES is a list
-       (consp (aref object 7))            ; and STATES is non-nil
+       (listp (aref object 7))            ; and STATES is, too
        (cl-every #'consp (aref object 7)) ; and an alist
        (aref object 1)))                  ; return VERSION