master d4d6f7a747: * lisp/subr.el (list-of-strings-p): Declare pure and error-free

[Mattias Engdegård]

branch: master
commit d4d6f7a74776034bff615ce4983ef9e710ba9963
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    * lisp/subr.el (list-of-strings-p): Declare pure and error-free
---
 lisp/subr.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/subr.el b/lisp/subr.el
index caea2b9f93..d7cdc28abb 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4028,6 +4028,7 @@ Otherwise, return nil."
 
 (defun list-of-strings-p (object)
   "Return t if OBJECT is nil or a list of strings."
+  (declare (pure t) (side-effect-free error-free))
   (while (and (consp object) (stringp (car object)))
     (setq object (cdr object)))
   (null object))