diff options
| author | Karl Fogel <kfogel@red-bean.com> | 2010-12-28 22:24:09 -0500 |
|---|---|---|
| committer | Karl Fogel <kfogel@red-bean.com> | 2010-12-28 22:24:09 -0500 |
| commit | 6e457cc94c235dd87e25d328c8a306c64cfaa6bd (patch) | |
| tree | 6ea042a6e8d19c556a159b8932a6cd76813f6814 /lisp/saveplace.el | |
| parent | 2576c28f3aad6dd01678f673d10c26b82ad40450 (diff) | |
| download | emacs-6e457cc94c235dd87e25d328c8a306c64cfaa6bd.tar.gz | |
* 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>.
Diffstat (limited to 'lisp/saveplace.el')
| -rw-r--r-- | lisp/saveplace.el | 4 |
1 files changed, 3 insertions, 1 deletions
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) |