* 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 c0ec2bb8ae16c85b862689ba72a0d99828f37276..3e9a7d09647f3e0efff39642a4b483ab9f6907dc 100644 (file)
--- 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 35625ca276f1cad85b0dfcec7025d972dc5c5b5a..eb9ff510faeb524a51f829f13a6e86451cd048a0 100644 (file)
--- 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)