mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-10 15:56:18 +00:00
Code Issues Releases Activity

* autorevert.el (auto-revert-handler): Allow

Browse Source 
`auto-revert-tail-mode' for remote files.
This commit is contained in:
Michael Albinus 2009-08-02 17:21:16 +00:00
parent 736ac90f59
commit 3eedbc8523
2 changed files with 30 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/ChangeLog
View File

@ -1,3 +1,21 @@
2009-08-02 Julian Scheid <julians37@googlemail.com> (tiny change)
* net/tramp.el (tramp-debug-message): Print also microseconds.
2009-08-02 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-handle-insert-file-contents): Optimize, when BEG
or END is non-nil.
(tramp-handle-vc-registered): Use `tramp-cache-inhibit-cache'.
(tramp-get-debug-buffer): Change `outline-regexp' according to new
format.
* net/tramp-cache.el (tramp-cache-inhibit-cache ): New defvar.
(tramp-get-file-property): Use it.
* autorevert.el (auto-revert-handler): Allow
`auto-revert-tail-mode' for remote files.
2009-08-02 Jason Rumney <jasonr@gnu.org>
* minibuffer.el (read-file-name): Treat confirm options to

18
lisp/autorevert.el
View File

@ -66,6 +66,7 @@
;; change by growing at the end. It only appends the new output,
;; instead of reverting the entire buffer. It does so even if the
;; buffer contains unsaved changes. (Because they will not be lost.)
;; Auto Revert Tail Mode works also for remote files.
;; Usage:
;;
@ -432,13 +433,18 @@ This is an internal function used by Auto-Revert Mode."
(let* ((buffer (current-buffer)) size
(revert
(or (and buffer-file-name
(not (file-remote-p buffer-file-name))
(file-readable-p buffer-file-name)
(if auto-revert-tail-mode
(/= auto-revert-tail-pos
(setq size
(nth 7 (file-attributes buffer-file-name))))
(not (verify-visited-file-modtime buffer))))
;; Tramp caches the file attributes. Setting
;; `tramp-cache-inhibit' forces Tramp to
;; reread the values.
(let ((tramp-cache-inhibit-cache t))
(/= auto-revert-tail-pos
(setq size
(nth 7 (file-attributes
buffer-file-name)))))
(and (not (file-remote-p buffer-file-name))
(not (verify-visited-file-modtime buffer)))))
(and (or auto-revert-mode
global-auto-revert-non-file-buffers)
revert-buffer-function
@ -477,7 +483,7 @@ This is an internal function used by Auto-Revert Mode."
(when (or revert auto-revert-check-vc-info)
(vc-find-file-hook)))))
(defun auto-revert-tail-handler (size)
(defun auto-revert-tail-handler (size)
(let ((modified (buffer-modified-p))
(inhibit-read-only t) ; Ignore.
(file buffer-file-name)