diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 18 | ||||
| -rw-r--r-- | lisp/autorevert.el | 18 |
2 files changed, 30 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ea810df92f7..5e7debbd7ad 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/autorevert.el b/lisp/autorevert.el index ab133af00f1..81d9fbf55c0 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el @@ -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) |