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

2 files changed, 8 insertions, 9 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1e207f74f92..fd0505fa867 100644
--- 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 c8a5c9785a4..0507bf72130 100644
--- 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."