diff options
| author | Eli Zaretskii | 2013-01-11 11:45:54 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2013-01-11 11:45:54 +0200 |
| commit | 10e714d51d98bf0cb4b01447b01ab5cec6b2f752 (patch) | |
| tree | 93dd90a99c16e82a1e25f9f662459aee831a8cb6 | |
| parent | 99a7a59166453f799894105930e140ca1a8c6fb2 (diff) | |
| download | emacs-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/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 @@ | |||
| 1 | 2013-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 | |||
| 1 | 2013-01-10 Michael Albinus <michael.albinus@gmx.de> | 7 | 2013-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 |