From d4d6f7a74776034bff615ce4983ef9e710ba9963 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Fri, 16 Sep 2022 18:51:10 +0200 Subject: [PATCH] * 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 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)) -- 2.39.2