From: Mattias Engdegård <mattiase@acm.org>
Date: Mon, 22 Apr 2019 16:04:00 +0000 (+0200)
Subject: * autorevert.el (auto-revert-notify-rm-watch): Simplify.
X-Git-Tag: emacs-27.0.90~3138
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f20c1ffd05aab43a14ade3c433216a6c6fbe4b24;p=emacs.git

* autorevert.el (auto-revert-notify-rm-watch): Simplify.
---

diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index 4fb865e8adb..6f2415a3ae4 100644
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -499,18 +499,16 @@ will use an up-to-date value of `auto-revert-interval'"
 
 (defun auto-revert-notify-rm-watch ()
   "Disable file notification for current buffer's associated file."
-  (when auto-revert-notify-watch-descriptor
-    (maphash
-     (lambda (key value)
-       (when (equal key auto-revert-notify-watch-descriptor)
-	 (setq value (delete (current-buffer) value))
-	 (if value
-	     (puthash key value auto-revert-notify-watch-descriptor-hash-list)
-	   (remhash key auto-revert-notify-watch-descriptor-hash-list)
-	   (ignore-errors
-	     (file-notify-rm-watch auto-revert-notify-watch-descriptor)))))
-     auto-revert-notify-watch-descriptor-hash-list)
-    (remove-hook 'kill-buffer-hook #'auto-revert-notify-rm-watch t))
+  (let ((desc auto-revert-notify-watch-descriptor)
+        (table auto-revert-notify-watch-descriptor-hash-list))
+    (when desc
+      (let ((buffers (delq (current-buffer) (gethash desc table))))
+        (if buffers
+            (puthash desc buffers table)
+          (remhash desc table)))
+      (ignore-errors
+	(file-notify-rm-watch desc))
+      (remove-hook 'kill-buffer-hook #'auto-revert-notify-rm-watch t)))
   (setq auto-revert-notify-watch-descriptor nil
 	auto-revert-notify-modified-p nil))