diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/project.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index add0e592f69..7e25869e286 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -874,7 +874,8 @@ Certain buffers may be \"spared\", see `project-kill-buffers-ignores'." :group 'project) (defvar project--list 'unset - "List of known project directories.") + "List structure containing root directories of known projects. +With some possible metadata (to be decided).") (defun project--read-project-list () "Initialize `project--list' using contents of `project-list-file'." @@ -883,7 +884,14 @@ Certain buffers may be \"spared\", see `project-kill-buffers-ignores'." (when (file-exists-p filename) (with-temp-buffer (insert-file-contents filename) - (read (current-buffer))))))) + (read (current-buffer))))) + (unless (seq-every-p + (lambda (elt) (and (listp elt) + (stringp (car elt)))) + project--list) + (warn "Contents of %s are in wrong format, resetting" + project-list-file) + (setq project--list nil)))) (defun project--ensure-read-project-list () "Initialize `project--list' if it isn't already initialized." |