[Emacs-diffs] /srv/bzr/emacs/trunk r112510: * lisp/cus-edit.el (custom-save-variables): Pretty-print long values.

[Glenn Morris]

------------------------------------------------------------
revno: 112510
fixes bug: http://debbugs.gnu.org/14187
author: Adam Spiers <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2013-05-07 23:59:41 -0700
message:
  * lisp/cus-edit.el (custom-save-variables): Pretty-print long values.
modified:
  lisp/ChangeLog
  lisp/cus-edit.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-08 06:56:37 +0000
+++ b/lisp/ChangeLog    2013-05-08 06:59:41 +0000
@@ -1,3 +1,8 @@
+2013-05-08  Adam Spiers  <address@hidden>
+
+       * cus-edit.el (custom-save-variables):
+       Pretty-print long values.  (Bug#14187)
+
 2013-05-08  Glenn Morris  <address@hidden>
 
        * progmodes/m4-mode.el (m4-program): Assume it is in PATH.

=== modified file 'lisp/cus-edit.el'
--- a/lisp/cus-edit.el  2013-04-13 01:10:09 +0000
+++ b/lisp/cus-edit.el  2013-05-08 06:59:41 +0000
@@ -4531,7 +4531,15 @@
            (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)