diff options
| author | Michael Albinus | 2013-01-11 23:54:42 +0100 |
|---|---|---|
| committer | Michael Albinus | 2013-01-11 23:54:42 +0100 |
| commit | c88be99696aa39e3aed1e32ada7bf6e0cc472c90 (patch) | |
| tree | 0dcf4d6e307ea90c0bcaf0d1ba49e073b4226f80 /lisp | |
| parent | 65adfa202b8d38ec4af3bcbc9acaeb5cb66b22b4 (diff) | |
| download | emacs-c88be99696aa39e3aed1e32ada7bf6e0cc472c90.tar.gz emacs-c88be99696aa39e3aed1e32ada7bf6e0cc472c90.zip | |
Fix a scoping error.
Diffstat (limited to 'lisp')
| -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'" | |||
| 524 | (file (auto-revert-notify-event-file-name event)) | 524 | (file (auto-revert-notify-event-file-name event)) |
| 525 | (buffer (gethash descriptor | 525 | (buffer (gethash descriptor |
| 526 | auto-revert-notify-watch-descriptor-hash-list))) | 526 | auto-revert-notify-watch-descriptor-hash-list))) |
| 527 | ;; Check, that event is meant for us. | ||
| 528 | ;; TODO: Filter events which stop watching, like `move' or `removed'. | ||
| 529 | (ignore-errors | 527 | (ignore-errors |
| 528 | ;; Check, that event is meant for us. | ||
| 529 | ;; TODO: Filter events which stop watching, like `move' or `removed'. | ||
| 530 | (assert descriptor) | 530 | (assert descriptor) |
| 531 | (when (featurep 'inotify) (assert (memq 'modify descriptor))) | 531 | (when (featurep 'inotify) (assert (memq 'modify descriptor))) |
| 532 | (when (featurep 'w32notify) (assert (eq 'modified descriptor))) | 532 | (when (featurep 'w32notify) (assert (eq 'modified descriptor))) |
| @@ -534,11 +534,11 @@ will use an up-to-date value of `auto-revert-interval'" | |||
| 534 | (when (stringp file) | 534 | (when (stringp file) |
| 535 | (assert (string-equal | 535 | (assert (string-equal |
| 536 | (directory-file-name file) | 536 | (directory-file-name file) |
| 537 | (directory-file-name (buffer-file-name buffer)))))) | 537 | (directory-file-name (buffer-file-name buffer))))) |
| 538 | 538 | ||
| 539 | ;; Mark buffer modified. | 539 | ;; Mark buffer modified. |
| 540 | (with-current-buffer buffer | 540 | (with-current-buffer buffer |
| 541 | (setq auto-revert-notify-modified-p t))))) | 541 | (setq auto-revert-notify-modified-p t)))))) |
| 542 | 542 | ||
| 543 | (defun auto-revert-active-p () | 543 | (defun auto-revert-active-p () |
| 544 | "Check if auto-revert is active (in current buffer or globally)." | 544 | "Check if auto-revert is active (in current buffer or globally)." |