Mercurial > emacs
diff lisp/vc.el @ 87435:13951469ac3a
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))