From 4cb6cbb3776f142050cd70de279294cf98c63969 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Simen=20Heggest=C3=B8yl?= Date: Fri, 29 May 2020 16:58:09 +0200 Subject: [PATCH] Remove 'project--ensure-file-exists' * lisp/progmodes/project.el (project--ensure-file-exists): Remove. (project--read-project-list): Set 'project--list' to nil when the project list file doesn't exist. --- lisp/progmodes/project.el | 27 +++++++++++---------------- 1 file changed, 11 insertions(+), 16 deletions(-) diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 92293d0e2d..56087a7290 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -718,25 +718,20 @@ project-compile (defvar project--list 'unset "List of known project directories.") -(defun project--ensure-file-exists (filename) - "Create an empty file FILENAME if it doesn't exist." - (unless (file-exists-p filename) - (with-temp-buffer - (write-file filename)))) - (defun project--read-project-list () "Initialize `project--list' from the project list file." (let ((filename (locate-user-emacs-file "project-list"))) - (project--ensure-file-exists filename) - (with-temp-buffer - (insert-file-contents filename) - (let ((dirs (split-string (buffer-string) "\n" t)) - (project-list '())) - (dolist (dir dirs) - (cl-pushnew (file-name-as-directory dir) - project-list - :test #'equal)) - (setq project--list (reverse project-list)))))) + (setq project--list + (when (file-exists-p filename) + (with-temp-buffer + (insert-file-contents filename) + (let ((dirs (split-string (buffer-string) "\n" t)) + (project-list '())) + (dolist (dir dirs) + (cl-pushnew (file-name-as-directory dir) + project-list + :test #'equal)) + (reverse project-list))))))) (defun project--ensure-read-project-list () "Initialize `project--list' if it hasn't already been." -- 2.26.2