mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

* autorevert.el (auto-revert-handler): Notifications which result

Browse Source 
from a saved file shall not be taken into account.  (Bug#13557)
This commit is contained in:
Michael Albinus 2013-01-27 11:43:33 +01:00
parent cc17363fc3
commit 629cb6ec00
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2013-01-27 Michael Albinus <michael.albinus@gmx.de>
* autorevert.el (auto-revert-handler): Notifications which result
from a saved file shall not be taken into account. (Bug#13557)
2013-01-26 Andreas Schwab <schwab@linux-m68k.org>
* emacs-lisp/lisp-mode.el (lisp-mode-variables): Add optional

17
lisp/autorevert.el
View File

@ -612,21 +612,16 @@ This is an internal function used by Auto-Revert Mode."
(or (and buffer-file-name
(or auto-revert-remote-files
(not (file-remote-p buffer-file-name)))
(or (not auto-revert-use-notify)
auto-revert-notify-modified-p)
(if auto-revert-tail-mode
(and (or (not auto-revert-use-notify)
auto-revert-notify-modified-p)
(file-readable-p buffer-file-name)
(and (file-readable-p buffer-file-name)
(/= auto-revert-tail-pos
(setq size
(nth 7 (file-attributes
buffer-file-name)))))
;; When `auto-revert-use-notify' is set, we do
;; not apply further checks for performance
;; reasons.
(if auto-revert-use-notify
auto-revert-notify-modified-p
(and (file-readable-p buffer-file-name)
(not (verify-visited-file-modtime buffer))))))
(and (file-readable-p buffer-file-name)
(not (verify-visited-file-modtime buffer)))))
(and (or auto-revert-mode
global-auto-revert-non-file-buffers)
revert-buffer-function
@ -634,8 +629,8 @@ This is an internal function used by Auto-Revert Mode."
(functionp buffer-stale-function)
(funcall buffer-stale-function t))))
eob eoblist)
(setq auto-revert-notify-modified-p nil)
(when revert
(setq auto-revert-notify-modified-p nil)
(when (and auto-revert-verbose
(not (eq revert 'fast)))
(message "Reverting buffer `%s'." (buffer-name)))