emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master e706545: Remove 'project--ensure-file-exists'


From: Simen Heggestøyl
Subject: master e706545: Remove 'project--ensure-file-exists'
Date: Tue, 2 Jun 2020 13:12:47 -0400 (EDT)

branch: master
commit e7065459d96498163e737c0c8e45e5dc2412f181
Author: Simen Heggestøyl <simenheg@gmail.com>
Commit: Simen Heggestøyl <simenheg@gmail.com>

    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 1214980..3149189 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -743,25 +743,20 @@ Arguments the same as in `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."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]