summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/subr.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el
index caea2b9f933..d7cdc28abba 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))