From 13754b5435db15ac235e4637ca91c7447c151a5b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 19 Oct 2011 09:42:20 -0700 Subject: [PATCH] * lisp/vc/vc-bzr.el (vc-bzr-after-dir-status): Ignore ignored files. Fixes: debbugs:9726 --- lisp/ChangeLog | 5 +++++ lisp/vc/vc-bzr.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index eec34f9d79c..5db9b8a5241 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-10-19 Glenn Morris + + * vc/vc-bzr.el (vc-bzr-after-dir-status): + Ignore ignored files. (Bug#9726) + 2011-10-19 Chong Yidong Doc fix for minor modes, stating that an omitted argument enables diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el index 3ab1caf2864..cc28db689e9 100644 --- a/lisp/vc/vc-bzr.el +++ b/lisp/vc/vc-bzr.el @@ -866,7 +866,7 @@ stream. Standard error output is discarded." (" M " . edited) ;; file text modified (" *" . edited) ;; execute bit changed (" M*" . edited) ;; text modified + execute bit changed - ;; FIXME: what about ignored files? + ("I " . ignored) (" D " . missing) ;; For conflicts, should we list the .THIS/.BASE/.OTHER? ("C " . conflict) @@ -916,7 +916,7 @@ stream. Standard error output is discarded." (push (list new-name 'edited (vc-bzr-create-extra-fileinfo old-name)) result))) ;; do nothing for non existent files - ((eq translated 'not-found)) + ((memq translated '(not-found ignored))) (t (push (list (file-relative-name (buffer-substring-no-properties -- 2.39.2