From: Mattias Engdegård <mattiase@acm.org>
Date: Fri, 16 Sep 2022 16:51:10 +0000 (+0200)
Subject: * lisp/subr.el (list-of-strings-p): Declare pure and error-free
X-Git-Tag: emacs-29.0.90~1856^2~441
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4d6f7a74776034bff615ce4983ef9e710ba9963;p=emacs.git

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

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))