branch: externals/dicom
commit d8f7e7c0f15271d541a8a9eca288fe217dd5149d
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Go to image position when scaling
---
dicom.el | 1 +
1 file changed, 1 insertion(+)
diff --git a/dicom.el b/dicom.el
index b0944717b1..c643650c88 100644
--- a/dicom.el
+++ b/dicom.el
@@ -278,6 +278,7 @@ progress:${percent-pos}%%' %s) & disown"
(when-let ((pos (text-property-not-all (point-min) (point-max)
'dicom--image nil))
(image (get-text-property pos 'display)))
(with-silent-modifications
+ (goto-char pos)
(funcall fun image)
(put-text-property pos (1+ pos) 'display `(image ,@(cdr image)))))))
