From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Fri, 20 Jun 2008 17:05:55 +0000 (+0000)
Subject: (vc-dir-hide-up-to-date): Undo previous change.
X-Git-Tag: emacs-pretest-23.0.90~4638
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3114c2523ade375d8c3ac171af23ee8e49f3c819;p=emacs.git

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

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."