From c88be99696aa39e3aed1e32ada7bf6e0cc472c90 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 11 Jan 2013 23:54:42 +0100 Subject: [PATCH] Fix a scoping error. --- lisp/autorevert.el | 12 ++++++------ 1 file 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)." -- 2.39.5