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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0d4566a91a6c008412ba9c972cce9912bc2f3f9b..c5753e76fae48437a90987f28cae84dbc00622d3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-01-11  Eli Zaretskii  <eliz@gnu.org>
+
+       * autorevert.el (auto-revert-notify-rm-watch)
+       (auto-revert-notify-add-watch): Fix typos in w32notify function
+       names.
+
 2013-01-10  Michael Albinus  <michael.albinus@gmx.de>
 
        * autorevert.el (auto-revert-notify-enabled): Move up.

diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index 4434ed21169c65c451272ed665bd7068cc5852cf..ea7e6ca3a36590d6bd0b89c0b751356608bca079 100644 (file)
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -466,7 +466,8 @@ will use an up-to-date value of `auto-revert-interval'"
 (defun auto-revert-notify-rm-watch ()
   "Disable file watch for current buffer's associated file."
   (when auto-revert-notify-watch-descriptor
-    (funcall (if (fboundp 'inotify-rm-watch) 'inotify-rm-watch 'w32-rm-watch)
+    (funcall (if (fboundp 'inotify-rm-watch)
+                'inotify-rm-watch 'w32notify-rm-watch)
             auto-revert-notify-watch-descriptor)
     (remhash auto-revert-notify-watch-descriptor
             auto-revert-notify-watch-descriptor-hash-list))
@@ -478,7 +479,7 @@ will use an up-to-date value of `auto-revert-interval'"
   (when (and buffer-file-name auto-revert-use-notify)
     (auto-revert-notify-rm-watch)
     (let ((func (if (fboundp 'inotify-add-watch)
-                   'inotify-add-watch 'w32-add-watch))
+                   'inotify-add-watch 'w32notify-add-watch))
          (aspect (if (fboundp 'inotify-add-watch)
                      '(close-write) '(last-write-time))))
       (setq auto-revert-notify-watch-descriptor