diff options
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/autorevert.el | 5 |
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 @@ +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 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'" (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 |