mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

Correctly update image properties

Browse Source 
* lisp/image-mode.el (image--update-properties): New function to
update image properties.
(image-toggle-display-image): Use it.  (Bug#73617)
This commit is contained in:
Manuel Giraud 2024-10-03 16:20:19 +02:00 committed by Eli Zaretskii
parent bb5b25181e
commit 0e9502b10e
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/image-mode.el
View File

@ -867,6 +867,13 @@ The limits are given by the user option
(or (<= mw (* (car size) scale)) (or (<= mw (* (car size) scale))
(<= mh (* (cdr size) scale)))))) (<= mh (* (cdr size) scale))))))
(defun image--update-properties (image properties)
"Update IMAGE with the new PROPERTIES set."
(let (prop)
(while (setq prop (pop properties))
(plist-put (cdr image) prop (pop properties)))
image))
(defun image-toggle-display-image () (defun image-toggle-display-image ()
"Show the image of the image file. "Show the image of the image file.
Turn the image data into a real image, but only if the whole file Turn the image data into a real image, but only if the whole file
@ -959,7 +966,7 @@ was inserted."
;; Discard any stale image data before looking it up again. ;; Discard any stale image data before looking it up again.
(image-flush image) (image-flush image)
(setq image (append image (image-transform-properties image))) (setq image (image--update-properties image (image-transform-properties image)))
(setq props (setq props
`(display ,image `(display ,image
;; intangible ,image ;; intangible ,image