diff options
| author | Adam Spiers <emacs@adamspiers.org> | 2013-05-07 23:59:41 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-05-07 23:59:41 -0700 |
| commit | dc7466df67defe01e0b6529394a5941970576fd1 (patch) | |
| tree | 5556aa62b7d842a69f61b3bc3d9c78607936482c /lisp/cus-edit.el | |
| parent | 9ecf672a9f26dd471731566d6304034a7e0c354b (diff) | |
| download | emacs-dc7466df67defe01e0b6529394a5941970576fd1.tar.gz | |
* lisp/cus-edit.el (custom-save-variables): Pretty-print long values.
Fixes: debbugs:14187
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index ac9408b1081..d4966078e1d 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -4531,7 +4531,15 @@ This function does not save the buffer." (princ " '(") (prin1 symbol) (princ " ") - (prin1 (car value)) + (let ((val (prin1-to-string (car value)))) + (if (< (length val) 60) + (insert val) + (newline-and-indent) + (let ((beginning-of-val (point))) + (insert val) + (save-excursion + (goto-char beginning-of-val) + (indent-pp-sexp 1))))) (when (or now requests comment) (princ " ") (prin1 now) |