Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

More robust checks for directory buffers in image-mode

Browse source 
* lisp/image-mode.el (image-mode--directory-buffers): Apply more
robust checks for directory buffers.  (Bug#54606)
This commit is contained in:
Michael Albinus 2022-04-01 09:01:35 +02:00
parent 8c031d8fcf
commit 2429b9d8c9
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/image-mode.el
View file

@ -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))))