[Top][All Lists]

[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)
      (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)))
-           (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)))
       (warn "Contents of %s are in wrong format, resetting"

reply via email to

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