(vc-dir-hide-up-to-date): Undo previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1e207f74f92db26e842aff3478e2e5f3afd3331e..fd0505fa8672a437dce975fa118f23edbb259253 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-06-20  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * vc.el (vc-dir-hide-up-to-date): Undo previous change.
+
 2008-06-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/checkdoc.el (checkdoc-start-section, checkdoc-error):

diff --git a/lisp/vc.el b/lisp/vc.el
index c8a5c9785a483bb534a8e3b9e2e831386e2ae407..0507bf72130d5c95452cc75bea8ccd7eb4055ded 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2014,17 +2014,12 @@ 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 (&optional drop-directory)
-  "Hide up-to-date items from display.
-With a prefix argument, also drop DIRECTORY entries."
-  (interactive "P")
+(defun vc-dir-hide-up-to-date ()
+  "Hide up-to-date items from display."
+  (interactive)
   (ewoc-filter
    vc-ewoc
-   (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))))))
+   (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."