text widget

If I eval this: (defcustom foo-message "\ this is the first line of a multi-line string this is the second line this is the third" "Documentation" :type '(choice (text :tag "Message") (const :tag "none" nil))) then M-x customize-variable foo-message and attempt to insert a newline by hitting return within the editable-field, I find that I can't. I want editing in place. So I have to do: (defcustom foo-message "\ this is the first line of a multi-line string this is the second line this is the third" "Documentation" :type '(choice (text :tag "Message" :action (lambda (x y) (newline))) (const :tag "none" nil))) Which is really grubby. Any advice? -- John Paul Wallington