diff options
| author | Michael Albinus <[email protected]> | 2013-12-09 15:47:00 +0100 |
|---|---|---|
| committer | Michael Albinus <[email protected]> | 2013-12-09 15:47:00 +0100 |
| commit | a1099a91df2596511073422c90e8fdf84f5c5b63 (patch) | |
| tree | 36dbab33efc6e9f40954669cfed26fd4fdd62082 | |
| parent | 5e48429a26cf87bdbabc242bc8fce447e3910adf (diff) | |
* autorevert.el (auto-revert-notify-add-watch): Do not handle symlinked files.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/autorevert.el | 10 |
2 files changed, 11 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ae0dcc3de3..8a05b46112 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-12-09 Michael Albinus <[email protected]> + + * autorevert.el (auto-revert-notify-add-watch): Do not handle + symlinked files. + 2013-12-09 Dmitry Gutov <[email protected]> * progmodes/ruby-mode.el (ruby-smie--implicit-semi-p): Return t diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 65526f07e1..f0929f95e3 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el @@ -504,13 +504,15 @@ will use an up-to-date value of `auto-revert-interval'" (defun auto-revert-notify-add-watch () "Enable file notification for current buffer's associated file." - (when (string-match auto-revert-notify-exclude-dir-regexp - (expand-file-name default-directory)) + ;; We can assume that `buffer-file-name' and + ;; `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. (set (make-local-variable 'auto-revert-use-notify) nil)) - (when (and buffer-file-name auto-revert-use-notify - (not auto-revert-notify-watch-descriptor)) + (when (not auto-revert-notify-watch-descriptor) (setq auto-revert-notify-watch-descriptor (ignore-errors (file-notify-add-watch |