From: Karl Fogel <kfogel@red-bean.com>
Date: Wed, 13 Mar 2013 18:54:05 +0000 (-0500)
Subject: * saveplace.el (save-place-alist-to-file): Don't sort
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~568^2~10
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1c4a85eda018224ac258d8b55cad5093015f1f77;p=emacs.git

* 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 e0eb300c191..30f4739a8a9 100644
--- 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 ef2f5469e29..1b7efcec1b9 100644
--- 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)