Mercurial > emacs

diff lisp/saveplace.el @ 112028:5a30dfc28ea8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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>.
author Karl Fogel <kfogel@red-bean.com>
date Tue, 28 Dec 2010 22:24:09 -0500
parents 1d1d5d9bd884
children 417b1e4d63cd
line wrap: on
line diff
--- a/lisp/saveplace.el	Tue Dec 28 14:57:15 2010 -0500
+++ b/lisp/saveplace.el	Tue Dec 28 22:24:09 2010 -0500
@@ -213,7 +213,9 @@
                       (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)