mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(widget-sexp-value-to-internal):

Browse Source 
Don't bother with pp for a symbol.
This commit is contained in:
Richard M. Stallman 1997-05-31 01:22:39 +00:00
parent ddc90f39b0
commit 6d1ab9d4d6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/wid-edit.el
View File

@ -2637,7 +2637,9 @@ It will read a directory name from the minibuffer when invoked."
(defun widget-sexp-value-to-internal (widget value)
;; Use pp for printer representation.
(let ((pp (pp-to-string value)))
(let ((pp (if (symbolp value)
(prin1-to-string value)
(pp-to-string value))))
(while (string-match "\n\\'" pp)
(setq pp (substring pp 0 -1)))
(if (or (string-match "\n\\'" pp)