From 89c744c380b2aed28ebf2bd8f991461d60cff934 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Fri, 26 Jun 2020 09:37:52 +0100 Subject: [PATCH] ; 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 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) -- 2.39.5