branch: main
commit 2dc3c33f6137c0ab530ca6d355b62c3019405b4b
Author: Paul Nelson <[email protected]>
Commit: Paul Nelson <[email protected]>
preview.el: Pass correct ps-file in gs/dvips setup
* preview.el (preview-gs-dvips-process-setup): Use the ps-file
returned by 'preview-start-dvips'. (bug#80427)
---
preview.el | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/preview.el b/preview.el
index 8b757c84..d4977e65 100644
--- a/preview.el
+++ b/preview.el
@@ -958,11 +958,16 @@ START is the function that actually starts the process
with
(defun preview-gs-dvips-process-setup ()
"Set up Dvips process for conversions via gs."
- (preview-dvi*-process-setup-1
- preview-gs-image-type
- (lambda ()
- (preview-start-dvips preview-fast-conversion))
- #'preview-gs-dvips-sentinel))
+ (let ((ret
+ (preview-dvi*-process-setup-1
+ preview-gs-image-type
+ (lambda ()
+ (preview-start-dvips preview-fast-conversion))
+ #'preview-gs-dvips-sentinel)))
+ ;; Override the dvi* sentinel value t with the actual file, set by
+ ;; `preview-start-dvips' in `preview-ps-file'.
+ (setf (nth 3 ret) preview-ps-file)
+ ret))
(defun preview-dvi*-process-setup ()
"Set up dvi conversion process."
