[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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master e706545: Remove 'project--ensure-file-exists',
Simen Heggestøyl <=