(vc-dir-hide-up-to-date): Accept a prefix argument to also remove DIRECTORY entries.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4e50b09539e1c0ffad29f8a2940605ccbe6c22a9..b5f5e1684b9ab9ce971fe01377725ef274b50ac6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-06-20  Sam Steingold  <sds@gnu.org>
+
+       * vc.el (vc-dir-hide-up-to-date): Accept a prefix argument to also
+       remove DIRECTORY entries.
+
 2008-06-20  Eli Zaretskii  <eliz@gnu.org>
 
        * makefile.w32-in (distclean): Depend on `clean'.

diff --git a/lisp/vc.el b/lisp/vc.el
index 0507bf72130d5c95452cc75bea8ccd7eb4055ded..c8a5c9785a483bb534a8e3b9e2e831386e2ae407 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2014,12 +2014,17 @@ outside of VC) and one wants to do some operation on it."
   (interactive "fShow file: ")
   (vc-dir-update (list (list (file-relative-name file) (vc-state file))) (current-buffer)))
 
-(defun vc-dir-hide-up-to-date ()
-  "Hide up-to-date items from display."
-  (interactive)
+(defun vc-dir-hide-up-to-date (&optional drop-directory)
+  "Hide up-to-date items from display.
+With a prefix argument, also drop DIRECTORY entries."
+  (interactive "P")
   (ewoc-filter
    vc-ewoc
-   (lambda (crt) (not (eq (vc-dir-fileinfo->state crt) 'up-to-date)))))
+   (if drop-directory
+       (lambda (crt)
+         (not (or (eq (vc-dir-fileinfo->state crt) 'up-to-date)
+                  (vc-dir-fileinfo->directory crt))))
+       (lambda (crt) (not (eq (vc-dir-fileinfo->state crt) 'up-to-date))))))
 
 (defun vc-default-status-fileinfo-extra (backend file)
   "Default absence of extra information returned for a file."