[AUCTeX-diffs] [elpa] externals/auctex 8e012b3 06/23: Fix off-by-one behavior of preview-latex (bug#39927)

[Tassilo Horn]

branch: externals/auctex
commit 8e012b3d753381faf071c7c6284f5e217ca9e5e2
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Commit: Ikumi Keita <ikumi@ikumi.que.jp>

    Fix off-by-one behavior of preview-latex (bug#39927)
    
    * preview.el.in (preview-prepare-fast-conversion): Turn newline in
    init string into space so that gs waits subsequent input. This newline
    caused a spurious appearance of gs prompt "GS>".
---
 preview.el.in | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/preview.el.in b/preview.el.in
index 91ce6e1..e22d241 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -1166,7 +1166,7 @@ NONREL is not NIL."
     (setq preview-gs-init-string
           ;; Add commands for revised file access controls introduced
           ;; after gs 9.27 (bug#37719)
-          (concat (format "systemdict /.addcontrolpath known {%s} if\n"
+          (concat (format "systemdict /.addcontrolpath known {%s} if "
                           (mapconcat (lambda (f)
                                        (format "/PermitFileReading %s 
.addcontrolpath"
                                                (preview-ps-quote-filename f)))
@@ -1312,11 +1312,6 @@ Try \\[ps-run-start] \\[ps-run-buffer] and \
 
 (defun preview-gs-flag-error (ov err)
   "Make an eps error flag in overlay OV for ERR string."
-  ;; N.B.  Although this code shows command line of gs invocation and
-  ;; error together via mouse popup menu, they are not necessarily
-  ;; associated with each other.  There is a case that the command
-  ;; line is for "[...].prv/tmpXXXXXX/pr1-2.png" while the error is
-  ;; raised for "[...].prv/tmpXXXXXX/pr1-1.png".  (c.f. bug#37719)
   (let* ((filenames (overlay-get ov 'filenames))
          (file (car (nth 0 filenames)))
          ;; FIXME: This format isn't equal to actual invocation of gs