[Emacs-diffs] Changes to emacs/lisp/vc.el,v

[Eric S. Raymond]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Eric S. Raymond <esr>   08/01/01 11:17:40

Index: vc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc.el,v
retrieving revision 1.503
retrieving revision 1.504
diff -u -b -r1.503 -r1.504
--- vc.el       31 Dec 2007 19:14:23 -0000      1.503
+++ vc.el       1 Jan 2008 11:17:37 -0000       1.504
@@ -2393,16 +2393,14 @@
            (t
             (vc-dired-reformat-line nil)
             (forward-line 1))))
-        ;; try to head off calling the expensive state query -
+        ;; Try to head off calling the expensive state query -
         ;; ignore object files, TeX intermediate files, and so forth.
         ((vc-dired-ignorable-p filename)
          (dired-kill-line))
-         ;; ordinary file -- call the (possibly expensive) state query
-         (t
-         (let ((backend (vc-backend filename)))
-           (cond
-            ;; Not registered
-            ((not backend)
+         ;; Ordinary file -- call the (possibly expensive) state query
+        ;;
+        ;; First case: unregistered or unknown. (Unknown shouldn't happen here)
+        ((member (vc-state filename) '(nil unregistered))
              (if vc-dired-terse-mode
                  (dired-kill-line)
                (vc-dired-reformat-line "?")
@@ -2413,7 +2411,7 @@
              (forward-line 1))
             ;; Remaining cases are under version control but uninteresting 
             (t 
-             (dired-kill-line)))))))
+         (dired-kill-line))))
        ;; any other line
        (t (forward-line 1))))
     (vc-dired-purge))