From 1c4a85eda018224ac258d8b55cad5093015f1f77 Mon Sep 17 00:00:00 2001 From: Karl Fogel Date: Wed, 13 Mar 2013 13:54:05 -0500 Subject: [PATCH] * saveplace.el (save-place-alist-to-file): Don't sort `save-place-alist', just pretty-print it (bug#13882). --- lisp/ChangeLog | 5 +++++ lisp/saveplace.el | 4 +--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e0eb300c191..30f4739a8a9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-03-13 Karl Fogel + + * saveplace.el (save-place-alist-to-file): Don't sort + `save-place-alist', just pretty-print it (bug#13882). + 2013-03-13 Michael Albinus * net/tramp-sh.el (tramp-sh-handle-insert-directory): Check, diff --git a/lisp/saveplace.el b/lisp/saveplace.el index ef2f5469e29..1b7efcec1b9 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el @@ -224,9 +224,7 @@ may have changed\) back to `save-place-alist'." (symbol-name coding-system-for-write))) (let ((print-length nil) (print-level nil)) - (pp (sort save-place-alist - (lambda (a b) (string< (car a) (car b)))) - (current-buffer))) + (pp save-place-alist (current-buffer))) (let ((version-control (cond ((null save-place-version-control) nil) -- 2.39.2