* saveplace.el (save-place-alist-to-file): Don't sort

`save-place-alist', just pretty-print it (bug#13882).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e0eb300c1911f410e41cbc1b1e827d7ffd9df5b4..30f4739a8a96a270c2a4ea1bf7751c81c0cf1bdc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-03-13  Karl Fogel  <kfogel@red-bean.com>
+
+       * saveplace.el (save-place-alist-to-file): Don't sort
+       `save-place-alist', just pretty-print it (bug#13882).
+
 2013-03-13  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp-sh.el (tramp-sh-handle-insert-directory): Check,

diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index ef2f5469e29ecea4fdc1cdc44bae906f9b973a62..1b7efcec1b9a8585161569a8e576d25216d33263 100644 (file)
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -224,9 +224,7 @@ may have changed\) back to `save-place-alist'."
                       (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)