[Emacs-diffs] /srv/bzr/emacs/trunk r112040: * saveplace.el (save-place-alist-to-file): Don't sort

[Karl Fogel]

------------------------------------------------------------
revno: 112040
committer: Karl Fogel <address@hidden>
branch nick: trunk
timestamp: Wed 2013-03-13 13:54:05 -0500
message:
  * saveplace.el (save-place-alist-to-file): Don't sort
  `save-place-alist', just pretty-print it (bug#13882).
modified:
  lisp/ChangeLog
  lisp/saveplace.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-03-13 11:38:13 +0000
+++ b/lisp/ChangeLog    2013-03-13 18:54:05 +0000
@@ -1,3 +1,8 @@
+2013-03-13  Karl Fogel  <address@hidden>
+
+       * saveplace.el (save-place-alist-to-file): Don't sort
+       `save-place-alist', just pretty-print it (bug#13882).
+
 2013-03-13  Michael Albinus  <address@hidden>
 
        * net/tramp-sh.el (tramp-sh-handle-insert-directory): Check,

=== modified file 'lisp/saveplace.el'
--- a/lisp/saveplace.el 2013-03-12 02:08:21 +0000
+++ b/lisp/saveplace.el 2013-03-13 18:54:05 +0000
@@ -224,9 +224,7 @@
                       (symbol-name coding-system-for-write)))
       (let ((print-length nil)
             (print-level nil))
-        (pp (sort save-place-alist
-                  (lambda (a b) (string< (car a) (car b))))
-            (current-buffer)))
+        (pp save-place-alist (current-buffer)))
       (let ((version-control
              (cond
               ((null save-place-version-control) nil)