diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2020-06-26 09:37:52 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2020-06-26 09:37:52 +0100 |
| commit | 89c744c380b2aed28ebf2bd8f991461d60cff934 (patch) | |
| tree | 8868ffa10cb0be82d8a0f53369506e1e185ba0ed | |
| parent | be7a07f38d0bc12e3f513d8a2626ae7f8d4bb7df (diff) | |
| download | emacs-89c744c380b2aed28ebf2bd8f991461d60cff934.tar.gz | |
; Fix recent indentation in project.el
* lisp/progmodes/project.el (project-ignores, project-find-file-in)
(project-eshell, project--read-project-list): Fix indentation.
| -rw-r--r-- | lisp/progmodes/project.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 7e25869e286..0a15939d243 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) |