Mercurial > emacs
comparison lisp/vc.el @ 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 | ab9d2eab872e |
| children | 7742c3c06407 |
comparison
equal
deleted
inserted
replaced
| 96121:bd062fcb9c58 | 96122:147721a08602 |
|---|---|
| 2012 This is typically used if the file is up-to-date (or has been added | 2012 This is typically used if the file is up-to-date (or has been added |
| 2013 outside of VC) and one wants to do some operation on it." | 2013 outside of VC) and one wants to do some operation on it." |
| 2014 (interactive "fShow file: ") | 2014 (interactive "fShow file: ") |
| 2015 (vc-dir-update (list (list (file-relative-name file) (vc-state file))) (current-buffer))) | 2015 (vc-dir-update (list (list (file-relative-name file) (vc-state file))) (current-buffer))) |
| 2016 | 2016 |
| 2017 (defun vc-dir-hide-up-to-date (&optional drop-directory) | 2017 (defun vc-dir-hide-up-to-date () |
| 2018 "Hide up-to-date items from display. | 2018 "Hide up-to-date items from display." |
| 2019 With a prefix argument, also drop DIRECTORY entries." | 2019 (interactive) |
| 2020 (interactive "P") | |
| 2021 (ewoc-filter | 2020 (ewoc-filter |
| 2022 vc-ewoc | 2021 vc-ewoc |
| 2023 (if drop-directory | 2022 (lambda (crt) (not (eq (vc-dir-fileinfo->state crt) 'up-to-date))))) |
| 2024 (lambda (crt) | |
| 2025 (not (or (eq (vc-dir-fileinfo->state crt) 'up-to-date) | |
| 2026 (vc-dir-fileinfo->directory crt)))) | |
| 2027 (lambda (crt) (not (eq (vc-dir-fileinfo->state crt) 'up-to-date)))))) | |
| 2028 | 2023 |
| 2029 (defun vc-default-status-fileinfo-extra (backend file) | 2024 (defun vc-default-status-fileinfo-extra (backend file) |
| 2030 "Default absence of extra information returned for a file." | 2025 "Default absence of extra information returned for a file." |
| 2031 nil) | 2026 nil) |
| 2032 | 2027 |