Mercurial > emacs
changeset 96122:147721a08602
(vc-dir-hide-up-to-date): Undo previous change.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 20 Jun 2008 17:05:55 +0000 |
| parents | bd062fcb9c58 |
| children | 7742c3c06407 |
| files | lisp/ChangeLog lisp/vc.el |
| diffstat | 2 files changed, 8 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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."