Subject: Re: bug#6390: Should not regexp-quote quote newline?

From: Lennart Borgman <[email-masked]>
Date: Fri, 11 Jun 2010 01:11:53 +0200

On Thu, Jun 10, 2010 at 8:07 PM, Lennart Borgman
<[email-masked]> wrote:
> On Thu, Jun 10, 2010 at 7:03 PM, Andreas Schwab <[email-masked]> wrote:
>> Lennart Borgman <[email-masked]> writes:
>>
>>> Thanks, but that does not apply to the situation I am talking about.
>>
>> No, it is exactly what you want.
>
>
> Yes, you are right. Something like this seems to do what I want:
>
> (defun my-quote-string (str)
>  "Return string STR quoted like `prin1' do it."
>  (let ((ret (prin1-to-string str)))
>    (substring ret 1 -1)))

For the record here is a better version

(defun reb-quote-string (str)
 "Return string STR quoted like `prin1' do it."
 (let* ((print-escape-newlines t)
        (ret (prin1-to-string str)))
   (substring ret 1 -1)))

Something changed print-escape-newlines somewhere ...