Merge from emacs-23

[gnu-emacs] / lisp / saveplace.el

diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index d4db44bface2dba5686e02cb3912cf6d41dd7050..ee1107e3390ed94de463c05ecf77493b1ba43d1b 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)