Mercurial > emacs

diff lisp/vc.el @ 87435:13951469ac3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Refactoring step.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Thu, 27 Dec 2007 15:26:02 +0000
parents 4d223562bbfa
children a5a588610e41
line wrap: on
line diff
--- a/lisp/vc.el	Thu Dec 27 14:41:44 2007 +0000
+++ b/lisp/vc.el	Thu Dec 27 15:26:02 2007 +0000
@@ -2387,13 +2387,16 @@
 	 ((vc-dired-ignorable-p filename)
 	  (dired-kill-line))
          ;; ordinary file -- call the (possibly expensive) state query
-         ((and (vc-backend filename)
-	       (not (and vc-dired-terse-mode
-			 (vc-up-to-date-p filename))))
-          (vc-dired-reformat-line (vc-call dired-state-info filename))
-          (forward-line 1))
          (t
-          (dired-kill-line))))
+	  (let ((backend (vc-backend filename)))
+	    (cond
+	     ((and backend
+		   (not (and vc-dired-terse-mode
+			     (vc-up-to-date-p filename))))
+	      (vc-dired-reformat-line (vc-call dired-state-info filename))
+	      (forward-line 1))
+	     (t
+	      (dired-kill-line)))))))
        ;; any other line
        (t (forward-line 1))))
     (vc-dired-purge))