aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2013-01-11 11:45:54 +0200
committerEli Zaretskii2013-01-11 11:45:54 +0200
commit10e714d51d98bf0cb4b01447b01ab5cec6b2f752 (patch)
tree93dd90a99c16e82a1e25f9f662459aee831a8cb6
parent99a7a59166453f799894105930e140ca1a8c6fb2 (diff)
downloademacs-10e714d51d98bf0cb4b01447b01ab5cec6b2f752.tar.gz
emacs-10e714d51d98bf0cb4b01447b01ab5cec6b2f752.zip
Fix last commit in autorevert.el.
lisp/autorevert.el (auto-revert-notify-rm-watch) (auto-revert-notify-add-watch): Fix typos in w32notify function names.
-rw-r--r--lisp/ChangeLog6
-rw-r--r--lisp/autorevert.el5
2 files changed, 9 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0d4566a91a6..c5753e76fae 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
12013-01-11 Eli Zaretskii <eliz@gnu.org>
2
3 * autorevert.el (auto-revert-notify-rm-watch)
4 (auto-revert-notify-add-watch): Fix typos in w32notify function
5 names.
6
12013-01-10 Michael Albinus <michael.albinus@gmx.de> 72013-01-10 Michael Albinus <michael.albinus@gmx.de>
2 8
3 * autorevert.el (auto-revert-notify-enabled): Move up. 9 * autorevert.el (auto-revert-notify-enabled): Move up.
diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index 4434ed21169..ea7e6ca3a36 100644
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -466,7 +466,8 @@ will use an up-to-date value of `auto-revert-interval'"
466(defun auto-revert-notify-rm-watch () 466(defun auto-revert-notify-rm-watch ()
467 "Disable file watch for current buffer's associated file." 467 "Disable file watch for current buffer's associated file."
468 (when auto-revert-notify-watch-descriptor 468 (when auto-revert-notify-watch-descriptor
469 (funcall (if (fboundp 'inotify-rm-watch) 'inotify-rm-watch 'w32-rm-watch) 469 (funcall (if (fboundp 'inotify-rm-watch)
470 'inotify-rm-watch 'w32notify-rm-watch)
470 auto-revert-notify-watch-descriptor) 471 auto-revert-notify-watch-descriptor)
471 (remhash auto-revert-notify-watch-descriptor 472 (remhash auto-revert-notify-watch-descriptor
472 auto-revert-notify-watch-descriptor-hash-list)) 473 auto-revert-notify-watch-descriptor-hash-list))
@@ -478,7 +479,7 @@ will use an up-to-date value of `auto-revert-interval'"
478 (when (and buffer-file-name auto-revert-use-notify) 479 (when (and buffer-file-name auto-revert-use-notify)
479 (auto-revert-notify-rm-watch) 480 (auto-revert-notify-rm-watch)
480 (let ((func (if (fboundp 'inotify-add-watch) 481 (let ((func (if (fboundp 'inotify-add-watch)
481 'inotify-add-watch 'w32-add-watch)) 482 'inotify-add-watch 'w32notify-add-watch))
482 (aspect (if (fboundp 'inotify-add-watch) 483 (aspect (if (fboundp 'inotify-add-watch)
483 '(close-write) '(last-write-time)))) 484 '(close-write) '(last-write-time))))
484 (setq auto-revert-notify-watch-descriptor 485 (setq auto-revert-notify-watch-descriptor