Re: [AUCTeX-devel] [gs-devel] Asking help for preview-latex

[David Kastrup]

Ikumi Keita <address@hidden> writes:

>>>>>> David Kastrup <address@hidden> writes:
>>>> The test would be something like
>>> 
>>>> /GS_PDF_ProcSet where { pop [put old code here] } if
>>> 
>>> Do you mean that the patch listed below should work?
>
>> No.  The brackets in [put old code here] were part of the description,
>> not of the code.
>
> Thanks, but the code without those brackets as listed below still gives
> the same error for me.
> I'm now working on a slightly different approach attached with this
> message.  The option `preview-pdf-color-adjust-method' determines the
> way how preview-latex works:
>
> (1) New method using DELAYBIND
>     Good for gs > 9.27
>     Fail with gs <= 9.27
> (2) Traditional method
>     Good for gs < 9.27
>     Fail with gs >= 9.27 if foreground color isn't trivial
> (3) Fixed "black on white" appearance
>     Fallback for gs 9.27 with non-trivial foreground color
>
> Regards,
> Ikumi Keita
>
> ----- failed patch --------------------------------------------------
> diff --git a/preview.el.in b/preview.el.in
> index 30bf45bf..cbfeaf11 100644
> --- a/preview.el.in
> +++ b/preview.el.in
> @@ -750,10 +750,12 @@ to Ghostscript floats."
>    (let ((fg (aref colors 1)))
>      (if fg
>       (concat
> +      "/GS_PDF_ProcSet where { pop "
>        "/GS_PDF_ProcSet GS_PDF_ProcSet dup maxlength dict copy dup begin\
>  /graphicsbeginpage{//graphicsbeginpage exec "
>        (mapconcat #'preview-gs-color-value fg " ")
> -      " 3 copy rg RG}bind store end readonly store "))))
> +      " 3 copy rg RG}bind store end readonly store "
> +      "} if "))))
>  
>  (defun preview-gs-color-string (colors)
>    "Return a string setting up colors"
>
> ----------------------------------------------------------------------

Ok, that's puzzling.  It really should have worked.

-- 
David Kastrup