Commit a1099a91 authored by Michael Albinus's avatar Michael Albinus
Browse files

* autorevert.el (auto-revert-notify-add-watch): Do not handle symlinked files.

parent 5e48429a
2013-12-09 Michael Albinus <michael.albinus@gmx.de>
* autorevert.el (auto-revert-notify-add-watch): Do not handle
symlinked files.
2013-12-09 Dmitry Gutov <dgutov@yandex.ru> 2013-12-09 Dmitry Gutov <dgutov@yandex.ru>
* progmodes/ruby-mode.el (ruby-smie--implicit-semi-p): Return t * progmodes/ruby-mode.el (ruby-smie--implicit-semi-p): Return t
......
...@@ -504,13 +504,15 @@ will use an up-to-date value of `auto-revert-interval'" ...@@ -504,13 +504,15 @@ will use an up-to-date value of `auto-revert-interval'"
(defun auto-revert-notify-add-watch () (defun auto-revert-notify-add-watch ()
"Enable file notification for current buffer's associated file." "Enable file notification for current buffer's associated file."
(when (string-match auto-revert-notify-exclude-dir-regexp ;; We can assume that `buffer-file-name' and
(expand-file-name default-directory)) ;; `auto-revert-use-notify' are non-nil.
(when (or (string-match auto-revert-notify-exclude-dir-regexp
(expand-file-name default-directory))
(not (file-symlink-p buffer-file-name)))
;; Fallback to file checks. ;; Fallback to file checks.
(set (make-local-variable 'auto-revert-use-notify) nil)) (set (make-local-variable 'auto-revert-use-notify) nil))
(when (and buffer-file-name auto-revert-use-notify (when (not auto-revert-notify-watch-descriptor)
(not auto-revert-notify-watch-descriptor))
(setq auto-revert-notify-watch-descriptor (setq auto-revert-notify-watch-descriptor
(ignore-errors (ignore-errors
(file-notify-add-watch (file-notify-add-watch
......
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