aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorMichael Albinus2013-01-11 23:54:42 +0100
committerMichael Albinus2013-01-11 23:54:42 +0100
commitc88be99696aa39e3aed1e32ada7bf6e0cc472c90 (patch)
tree0dcf4d6e307ea90c0bcaf0d1ba49e073b4226f80 /lisp
parent65adfa202b8d38ec4af3bcbc9acaeb5cb66b22b4 (diff)
downloademacs-c88be99696aa39e3aed1e32ada7bf6e0cc472c90.tar.gz
emacs-c88be99696aa39e3aed1e32ada7bf6e0cc472c90.zip
Fix a scoping error.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/autorevert.el12
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)."