diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2013-01-11 23:54:42 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2013-01-11 23:54:42 +0100 |
| commit | c88be99696aa39e3aed1e32ada7bf6e0cc472c90 (patch) | |
| tree | 0dcf4d6e307ea90c0bcaf0d1ba49e073b4226f80 /lisp/autorevert.el | |
| parent | 65adfa202b8d38ec4af3bcbc9acaeb5cb66b22b4 (diff) | |
| download | emacs-c88be99696aa39e3aed1e32ada7bf6e0cc472c90.tar.gz | |
Fix a scoping error.
Diffstat (limited to 'lisp/autorevert.el')
| -rw-r--r-- | lisp/autorevert.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 78c4aaaa143..e78cecf0cc2 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el @@ -524,9 +524,9 @@ will use an up-to-date value of `auto-revert-interval'" (file (auto-revert-notify-event-file-name event)) (buffer (gethash descriptor auto-revert-notify-watch-descriptor-hash-list))) - ;; Check, that event is meant for us. - ;; TODO: Filter events which stop watching, like `move' or `removed'. (ignore-errors + ;; Check, that event is meant for us. + ;; TODO: Filter events which stop watching, like `move' or `removed'. (assert descriptor) (when (featurep 'inotify) (assert (memq 'modify descriptor))) (when (featurep 'w32notify) (assert (eq 'modified descriptor))) @@ -534,11 +534,11 @@ will use an up-to-date value of `auto-revert-interval'" (when (stringp file) (assert (string-equal (directory-file-name file) - (directory-file-name (buffer-file-name buffer)))))) + (directory-file-name (buffer-file-name buffer))))) - ;; Mark buffer modified. - (with-current-buffer buffer - (setq auto-revert-notify-modified-p t))))) + ;; Mark buffer modified. + (with-current-buffer buffer + (setq auto-revert-notify-modified-p t)))))) (defun auto-revert-active-p () "Check if auto-revert is active (in current buffer or globally)." |