Re: Is there something between `prin1-to-string' and `princ'?

[Thorsten Jolitz <tjolitz@gmail.com>]

"Pascal J. Bourguignon" <pjb@informatimago.com> writes:

> Thorsten Jolitz <tjolitz@gmail.com> writes:
>
>> Hi List, 
>> or even better
>>
>> ,-----------------------------------
>> | ... :CATEGORY "tmp2" :title ("C2") ...
>> `-----------------------------------
>>
>> but there seems to be no print command or configuration option that
>> gives me strings quoted, but text without properties at the same time?
>
> I'm afraid, you'll have to strip the properties before printing.
> cf.:   substring-no-properties
>
> (defun sexp-remove-string-properties (sexp)
>    (cond
>       ((stringp sexp) (substring-no-properties sexp))
>       ((atom sexp) sexp)
>       (t (cons (sexp-remove-string-properties (car sexp))
>                (sexp-remove-string-properties (cdr sexp))))))
>
> (prin1-to-string
>   (sexp-remove-string-properties    
>     '(:category "tmp2" :title (#("C2 " 0 3 (:parent nil))))))
> --> "(:category \"tmp2\" :title (\"C2 \"))"

Exactly what I need, thank you!

-- 
cheers,
Thorsten