From 8237eb21c81b3e5ededd42a3a2d5b9770d45ca92 Mon Sep 17 00:00:00 2001 From: Joseph Turner Date: Fri, 25 Aug 2023 21:31:06 -0700 Subject: [PATCH] project.el: Use list-of-strings-p for safe-local-variable predicate * lisp/progmodes/project.el (project-vc-ignores) (project-vc-extra-root-markers) --- lisp/progmodes/project.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 8d8bf594628..882173a65d0 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -397,7 +397,7 @@ the buffer's value of `default-directory'." (defcustom project-vc-ignores nil "List of patterns to add to `project-ignores'." :type '(repeat string)) -;;;###autoload(put 'project-vc-ignores 'safe-local-variable #'listp) +;;;###autoload(put 'project-vc-ignores 'safe-local-variable #'list-of-strings-p) (defcustom project-vc-merge-submodules t "Non-nil to consider submodules part of the parent project. @@ -452,7 +452,7 @@ variables, such as `project-vc-ignores' or `project-vc-name'." :type '(repeat string) :version "29.1" :package-version '(project . "0.9.0")) -;;;###autoload(put 'project-vc-extra-root-markers 'safe-local-variable (lambda (val) (and (listp val) (not (memq nil (mapcar #'stringp val)))))) +;;;###autoload(put 'project-vc-extra-root-markers 'safe-local-variable #'list-of-strings-p) ;; FIXME: Using the current approach, major modes are supposed to set ;; this variable to a buffer-local value. So we don't have access to -- 2.41.0