mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

* vc-dispatcher.el (vc-resynch-buffers-in-directory): Make sure

Browse Source 
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.
This commit is contained in:
Dan Nicolaescu 2009-07-24 05:41:17 +00:00
parent 1d2faf9803
commit ba83b7b62f
3 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

@ -1,3 +1,12 @@
2009-07-24 Dan Nicolaescu <dann@ics.uci.edu>
* 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.
2009-07-24 Glenn Morris <rgm@gnu.org>
* emacs-lisp/elint.el (elint-current-buffer, elint-defun):

7
lisp/vc-dir.el
View File

@ -866,9 +866,10 @@ If it is a file, return the corresponding cons for the file itself."
(when (vc-string-prefix-p ddir file)
(if (file-directory-p file)
(vc-dir-resync-directory-files file)
(vc-dir-update
(list (vc-dir-recompute-file-state file ddir))
status-buf)))))))
(let ((state (vc-dir-recompute-file-state file ddir)))
(vc-dir-update
(list state)
status-buf (eq (cadr state) 'up-to-date)))))))))
;; We didn't find any vc-dir buffers, remove the hook, it is
;; not needed.
(unless found-vc-dir-buf

3
lisp/vc-dispatcher.el
View File

@ -484,7 +484,8 @@ editing!"
(dolist (buffer (buffer-list))
(let ((fname (buffer-file-name buffer)))
(when (and fname (vc-string-prefix-p directory fname))
(vc-resynch-buffer fname keep noquery)))))
(with-current-buffer buffer
(vc-resynch-buffer fname keep noquery))))))
(defun vc-resynch-buffer (file &optional keep noquery)
"If FILE is currently visited, resynch its buffer."