From: Karl Fogel <kfogel@red-bean.com>
Date: Wed, 29 Dec 2010 03:24:09 +0000 (-0500)
Subject: * lisp/saveplace.el (save-place-alist-to-file): Save list sorted and
X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~1322^2~278^2~53
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e457cc94c235dd87e25d328c8a306c64cfaa6bd;p=emacs.git

* lisp/saveplace.el (save-place-alist-to-file): Save list sorted and
  pretty-printed, so that it is mergeable by line-based text merging,
  as suggested by Iain Dalton <iain.dalton {_AT_} gmail.com>.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c0ec2bb8ae1..3e9a7d09647 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-12-29  Karl Fogel  <kfogel@red-bean.com>
+
+	* saveplace.el (save-place-alist-to-file): Save list sorted and
+	pretty-printed, so that it is mergeable by line-based text merging,
+	as suggested by Iain Dalton <iain.dalton {_AT_} gmail.com>.
+
 2010-12-28  Chong Yidong  <cyd@stupidchicken.com>
 
 	* tool-bar.el (tool-bar-setup): Remove :enable conditions, which
diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index 35625ca276f..eb9ff510fae 100644
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -213,7 +213,9 @@ may have changed\) back to `save-place-alist'."
                       (symbol-name coding-system-for-write)))
       (let ((print-length nil)
             (print-level nil))
-        (print save-place-alist (current-buffer)))
+        (pp (sort save-place-alist
+                  (lambda (a b) (string< (car a) (car b))))
+            (current-buffer)))
       (let ((version-control
              (cond
               ((null save-place-version-control) nil)