Commit 71c661e4 authored by Michael Albinus's avatar Michael Albinus
Browse files

* autorevert.el (auto-revert-notify-handler): Use `file-equal-p'.

parent 2daddd9e
......@@ -2,6 +2,7 @@
 
* autorevert.el (auto-revert-notify-watch-descriptor): Give it
`permanent-local' property.
(auto-revert-notify-handler): Use `file-equal-p'.
 
2013-01-12 Eli Zaretskii <eliz@gnu.org>
 
......
......@@ -531,17 +531,14 @@ will use an up-to-date value of `auto-revert-interval'"
(when (featurep 'inotify) (cl-assert (memq 'modify action)))
(when (featurep 'w32notify) (cl-assert (eq 'modified action)))
(cl-assert (bufferp buffer))
(when (stringp file)
(cl-assert (string-equal
;; w32notify returns the basename of the file
;; without its leading directories; inotify
;; returns its full absolute file name.
(file-name-nondirectory (directory-file-name file))
(file-name-nondirectory (directory-file-name
(buffer-file-name buffer))))))
;; Mark buffer modified.
(with-current-buffer buffer
(when (and (stringp file) (stringp buffer-file-name))
;; w32notify returns the basename of the file without its
;; leading directories; inotify returns its full absolute
;; file name.
(cl-assert (file-equal-p file buffer-file-name)))
;; Mark buffer modified.
(setq auto-revert-notify-modified-p t))))))
(defun auto-revert-active-p ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment