bug#22611: [PATCH] Call ps-encode-header-string-function for plain strings too

[Lars Ingebrigtsen <larsi@gnus.org>]

Łukasz Stelmach <stlman@poczta.fm> writes:

> The function needs to be called for plain strings too to ensure
> the BitmapDict contains required characters and Unicode characters
> in the headers are printed properly.
> ---
>  lisp/ps-print.el | 6 +++++-
>  1 file changed, 5 insertions(+), 1 deletion(-)
>
> diff --git a/lisp/ps-print.el b/lisp/ps-print.el
> index 7333709..999398e 100644
> --- a/lisp/ps-print.el
> +++ b/lisp/ps-print.el
> @@ -4761,7 +4761,11 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th
>     ;; Literal strings should be output as is -- the string must contain its own
>     ;; PS string delimiters, '(' and ')', if necessary.
>     ((stringp content)
> -    (ps-output content))
> +    (if (functionp ps-encode-header-string-function)
> +		(dolist (l (funcall ps-encode-header-string-function
> +				    content fonttag))
> +	  (ps-output l))
> +    (ps-output content)))

I'm not very familiar with ps-print.el, but it looks good to me, so I've
applied it to emacs-25.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no