Mercurial > emacs
comparison lisp/vc-dispatcher.el @ 104051:a629d51e1d82
* vc-dispatcher.el (vc-resynch-buffers-in-directory): Make sure
the buffer we try to sync is current when calling
vc-resynch-buffer.
* vc-dir.el (vc-dir-resynch-file): Make sure vc-dir-update does
not show up to date files.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 24 Jul 2009 05:41:17 +0000 |
| parents | a9dc0e7c3f2b |
| children | dc97cf5c3f82 |
comparison
equal
deleted
inserted
replaced
| 104050:8ee742481c0a | 104051:a629d51e1d82 |
|---|---|
| 482 (defun vc-resynch-buffers-in-directory (directory &optional keep noquery) | 482 (defun vc-resynch-buffers-in-directory (directory &optional keep noquery) |
| 483 "Resync all buffers that visit files in DIRECTORY." | 483 "Resync all buffers that visit files in DIRECTORY." |
| 484 (dolist (buffer (buffer-list)) | 484 (dolist (buffer (buffer-list)) |
| 485 (let ((fname (buffer-file-name buffer))) | 485 (let ((fname (buffer-file-name buffer))) |
| 486 (when (and fname (vc-string-prefix-p directory fname)) | 486 (when (and fname (vc-string-prefix-p directory fname)) |
| 487 (vc-resynch-buffer fname keep noquery))))) | 487 (with-current-buffer buffer |
| 488 (vc-resynch-buffer fname keep noquery)))))) | |
| 488 | 489 |
| 489 (defun vc-resynch-buffer (file &optional keep noquery) | 490 (defun vc-resynch-buffer (file &optional keep noquery) |
| 490 "If FILE is currently visited, resynch its buffer." | 491 "If FILE is currently visited, resynch its buffer." |
| 491 (if (string= buffer-file-name file) | 492 (if (string= buffer-file-name file) |
| 492 (vc-resynch-window file keep noquery) | 493 (vc-resynch-window file keep noquery) |