branch: externals/auctex commit 1a2520807173318a70f3de6074238751a583974f Author: Paul Nelson <ultr...@gmail.com> Commit: Paul Nelson <ultr...@gmail.com>
Fix live preview regression * preview.el (preview-replace-active-icon): Correct the order of operations when replacing a preview with 'preview-leave-open-previews-visible' enabled: first mutate the spec, then flush. Commit 26807f1c added the flush in the other order. This caused a regression where the preview would update correctly on the first edit, but fail on subsequent edits. --- preview.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/preview.el b/preview.el index 3b3f63ac6e..88886b8386 100644 --- a/preview.el +++ b/preview.el @@ -1220,12 +1220,12 @@ ready. This behavior suppresses flicker in the appearance." (defsubst preview-replace-active-icon (ov replacement) "Replace the active Icon in OV by REPLACEMENT, another icon." (let ((img (overlay-get ov 'preview-image))) + (setcdr (car img) (cdar replacement)) + (setcdr img (cdr replacement)) (when (and preview-leave-open-previews-visible (consp img)) ;; No "TeX icon" has been shown, so we flush manually. - (image-flush (car img) t)) - (setcdr (car img) (cdar replacement)) - (setcdr img (cdr replacement)))) + (image-flush (car img) t)))) (defun preview-gs-place (ov snippet box run-buffer tempdir ps-file _imagetype) "Generate an image placeholder rendered over by Ghostscript.