# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1213981555 0
# Node ID 147721a08602da93eca28f5bb32eeafac7faea1a
# Parent  bd062fcb9c58747a6ba9b6b94a51e81fb2386239
(vc-dir-hide-up-to-date): Undo previous change.

diff -r bd062fcb9c58 -r 147721a08602 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jun 20 16:20:48 2008 +0000
+++ b/lisp/ChangeLog	Fri Jun 20 17:05:55 2008 +0000
@@ -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 -r bd062fcb9c58 -r 147721a08602 lisp/vc.el
--- a/lisp/vc.el	Fri Jun 20 16:20:48 2008 +0000
+++ b/lisp/vc.el	Fri Jun 20 17:05:55 2008 +0000
@@ -2014,17 +2014,12 @@
   (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."