[Emacs-diffs] /srv/bzr/emacs/trunk r107541: Stricter check for string value in savehist-printable

[Leo Liu]

------------------------------------------------------------
revno: 107541
fixes bug(s): http://debbugs.gnu.org/10937
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Sat 2012-03-10 02:09:46 +0800
message:
  Stricter check for string value in savehist-printable
modified:
  lisp/ChangeLog
  lisp/savehist.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-03-09 11:06:44 +0000
+++ b/lisp/ChangeLog    2012-03-09 18:09:46 +0000
@@ -1,3 +1,8 @@
+2012-03-09  Leo Liu  <address@hidden>
+
+       * savehist.el (savehist-printable): Stricter check for string
+       value (Bug#10937).
+
 2012-03-09  Eli Zaretskii  <address@hidden>
 
        * mail/smtpmail.el (smtpmail-send-it): Bind

=== modified file 'lisp/savehist.el'
--- a/lisp/savehist.el  2012-01-19 07:21:25 +0000
+++ b/lisp/savehist.el  2012-03-09 18:09:46 +0000
@@ -369,9 +369,11 @@
   "Return non-nil if VALUE is printable."
   (cond
    ;; Quick response for oft-encountered types known to be printable.
-   ((stringp value))
    ((numberp value))
    ((symbolp value))
+   ;; String without properties
+   ((and (stringp value)
+        (equal-including-properties value (substring-no-properties value))))
    (t
     ;; For others, check explicitly.
     (with-temp-buffer