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

Refill 'image-dired-display-image-buffer'

Browse source 
Bug#68486

* lisp/image/image-dired.el (image-dired-display-image): Refill
'image-dired-display-image-buffer' with image contents instead
of killing it.
This commit is contained in:
Manuel Giraud 2025-12-23 13:26:37 +01:00 committed by Eli Zaretskii
parent e29d398399
commit 034452e46e
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/image/image-dired.el
View file

@ -1283,18 +1283,18 @@ which is based on `image-mode'."
(setq file (expand-file-name file))
(when (not (file-exists-p file))
(error "No such file: %s" file))
(let ((buf (get-buffer image-dired-display-image-buffer))
(let ((buf (get-buffer-create image-dired-display-image-buffer))
(cur-win (selected-window)))
(when buf
(kill-buffer buf))
(when-let* ((buf (find-file-noselect file nil t)))
(pop-to-buffer buf)
(rename-buffer image-dired-display-image-buffer)
(with-current-buffer buf
(let ((inhibit-read-only t))
(erase-buffer)
(insert-file-contents file)
(if (string-match (image-file-name-regexp) file)
(image-dired-image-mode)
;; Support visiting PDF files.
(normal-mode))
(select-window cur-win))))
(normal-mode))))
(when buf (pop-to-buffer buf))
(select-window cur-win)))
(defun image-dired-display-this (&optional arg)
"Display current thumbnail's original image in display buffer.