From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 11 Jan 2013 22:54:42 +0000 (+0100)
Subject: Fix a scoping error.
X-Git-Tag: emacs-24.3.90~173^2~7^2~335
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c88be99696aa39e3aed1e32ada7bf6e0cc472c90;p=emacs.git

Fix a scoping error.
---

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)."