[Emacs-diffs] Changes to emacs/lisp/vc.el,v

[Sam Steingold]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Sam Steingold <sds>     08/06/20 15:50:17

Index: vc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc.el,v
retrieving revision 1.688
retrieving revision 1.689
diff -u -b -r1.688 -r1.689
--- vc.el       17 Jun 2008 15:39:06 -0000      1.688
+++ vc.el       20 Jun 2008 15:50:16 -0000      1.689
@@ -2014,12 +2014,17 @@
   (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."