[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 89c744c: ; Fix recent indentation in project.el
From: |
Basil L. Contovounesios |
Subject: |
master 89c744c: ; Fix recent indentation in project.el |
Date: |
Fri, 26 Jun 2020 04:51:15 -0400 (EDT) |
branch: master
commit 89c744c380b2aed28ebf2bd8f991461d60cff934
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>
; Fix recent indentation in project.el
* lisp/progmodes/project.el (project-ignores, project-find-file-in)
(project-eshell, project--read-project-list): Fix indentation.
---
lisp/progmodes/project.el | 17 ++++++++---------
1 file changed, 8 insertions(+), 9 deletions(-)
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 7e25869..0a15939 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -449,7 +449,7 @@ backend implementation of `project-external-roots'.")
(cl-defmethod project-ignores ((project (head vc)) dir)
(let* ((root (cdr project))
- backend)
+ backend)
(append
(when (file-equal-p dir root)
(setq backend (vc-responsible-backend root))
@@ -674,8 +674,8 @@ PREDICATE, HIST, and DEFAULT have the same meaning as in
(let* ((all-files (project-files project dirs))
(completion-ignore-case read-file-name-completion-ignore-case)
(file (funcall project-read-file-name-function
- "Find file" all-files nil nil
- filename)))
+ "Find file" all-files nil nil
+ filename)))
(if (string= file "")
(user-error "You didn't specify the file")
(find-file file))))
@@ -743,10 +743,10 @@ if one already exists."
(defvar eshell-buffer-name)
(let* ((default-directory (project-root (project-current t)))
(eshell-buffer-name
- (concat "*" (file-name-nondirectory
- (directory-file-name
- (file-name-directory default-directory)))
- "-eshell*"))
+ (concat "*" (file-name-nondirectory
+ (directory-file-name
+ (file-name-directory default-directory)))
+ "-eshell*"))
(eshell-buffer (get-buffer eshell-buffer-name)))
(if (and eshell-buffer (not current-prefix-arg))
(pop-to-buffer eshell-buffer)
@@ -886,8 +886,7 @@ With some possible metadata (to be decided).")
(insert-file-contents filename)
(read (current-buffer)))))
(unless (seq-every-p
- (lambda (elt) (and (listp elt)
- (stringp (car elt))))
+ (lambda (elt) (stringp (car-safe elt)))
project--list)
(warn "Contents of %s are in wrong format, resetting"
project-list-file)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 89c744c: ; Fix recent indentation in project.el,
Basil L. Contovounesios <=