diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2010-10-02 15:21:43 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2010-10-02 15:21:43 +0200 |
| commit | 4bc3c53d1d9d5b0533c2bbe06693660c8abf1f4a (patch) | |
| tree | fe8c7483b447abfa52e415279c0f78e977edf7f5 /lisp/time.el | |
| parent | 573a83b80263cf151982e069fe98a941c893e249 (diff) | |
| download | emacs-4bc3c53d1d9d5b0533c2bbe06693660c8abf1f4a.tar.gz | |
* files.el (remote-file-name-inhibit-cache): New defcustom.
* time.el (display-time-file-nonempty-p): Use
`remote-file-name-inhibit-cache'.
* net/tramp.el (tramp-completion-reread-directory-timeout): Fix
docstring.
* net/tramp-cache.el (tramp-cache-inhibit-cache): Remove.
(tramp-get-file-property): Replace `tramp-cache-inhibit-cache' by
`remote-file-name-inhibit-cache'. Check also for an integer
value. Add/increase counter when `tramp-verbose' >= 10.
(tramp-set-file-property): Add/increase counter when
`tramp-verbose' >= 10.
* net/tramp-cmds.el (tramp-cleanup-all-connections)
(tramp-cleanup-all-buffers): Set tramp-autoload cookie.
(tramp-bug): Set tramp-autoload cookie. Report all interned
tramp-* variables. Report also `remote-file-name-inhibit-cache'.
(tramp-reporter-dump-variable): Fix docstring. Mask non-7bit
characters only in strings.
* net/tramp-compat.el (remote-file-name-inhibit-cache): Define due
to backward compatibility.
* net/tramp-sh.el (tramp-handle-verify-visited-file-modtime)
(tramp-handle-file-name-all-completions)
(tramp-handle-vc-registered): Use
`remote-file-name-inhibit-cache'.
(tramp-open-connection-setup-interactive-shell): Call
`tramp-cleanup-connection' directly.
Diffstat (limited to 'lisp/time.el')
| -rw-r--r-- | lisp/time.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/time.el b/lisp/time.el index d512faefee0..006fd758a7c 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -454,8 +454,9 @@ update which can wait for the next redisplay." (force-mode-line-update)) (defun display-time-file-nonempty-p (file) - (and (file-exists-p file) - (< 0 (nth 7 (file-attributes (file-chase-links file)))))) + (let ((remote-file-name-inhibit-cache (- display-time-interval 5))) + (and (file-exists-p file) + (< 0 (nth 7 (file-attributes (file-chase-links file))))))) ;;;###autoload (define-minor-mode display-time-mode |