More robust checks for directory buffers in image-mode

* lisp/image-mode.el (image-mode--directory-buffers): Apply more
robust checks for directory buffers.  (Bug#54606)

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index d7dfb4336b9c508f0720a40ef749422d94c0dc89..721f2f2bbd82df06193cf8b6ba93bba359df76f1 100644 (file)
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -1196,8 +1196,9 @@ replacing the current Image mode buffer."
   "Return an alist of type/buffer for all \"parent\" buffers to image FILE.
 This is normally a list of Dired buffers, but can also be archive and
 tar mode buffers."
-  (let ((buffers nil)
-        (dir (file-name-directory file)))
+  (let* ((non-essential t) ; Do not block for remote buffers.
+         (buffers nil)
+         (dir (file-name-directory file)))
     (cond
      ((and (boundp 'tar-superior-buffer)
           tar-superior-buffer)
@@ -1212,6 +1213,8 @@ tar mode buffers."
       (dolist (buffer (buffer-list))
         (with-current-buffer buffer
           (when (and (derived-mode-p 'dired-mode)
+                    (equal (file-remote-p dir)
+                           (file-remote-p default-directory))
                     (equal (file-truename dir)
                            (file-truename default-directory)))
             (push (cons 'dired (current-buffer)) buffers))))