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

[Lennart Borgman]

On Thu, Jun 10, 2010 at 8:07 PM, Lennart Borgman
<lennart.borgman@gmail.com> wrote:
> On Thu, Jun 10, 2010 at 7:03 PM, Andreas Schwab <schwab@linux-m68k.org> wrote:
>> Lennart Borgman <lennart.borgman@gmail.com> 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 ...