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) |