From a152c5096caa23846af3822a465aec6025ba46c6 Mon Sep 17 00:00:00 2001 From: Mauro Aranda Date: Sun, 11 Oct 2020 09:44:40 -0300 Subject: [PATCH] Don't bind sort-fold-case when saving the custom-file * lisp/cus-edit.el (custom-save-variables, custom-save-faces): These functions sort a list, not buffer text, so they don't need to use sort-fold-case at all. Remove the let-binding for sort-fold-case. (Bug#43919) --- lisp/cus-edit.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 9c5d89f89f..3c93753495 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -4681,15 +4681,12 @@ custom-save-delete (setq pos (line-beginning-position)))) (goto-char pos))))) -(defvar sort-fold-case) ; defined in sort.el - (defun custom-save-variables () "Save all customized variables in `custom-file'." (save-excursion (custom-save-delete 'custom-set-variables) (let ((standard-output (current-buffer)) - (saved-list (make-list 1 0)) - sort-fold-case) + (saved-list (make-list 1 0))) ;; First create a sorted list of saved variables. (mapatoms (lambda (symbol) @@ -4771,8 +4768,7 @@ custom-save-faces (custom-save-delete 'custom-reset-faces) (custom-save-delete 'custom-set-faces) (let ((standard-output (current-buffer)) - (saved-list (make-list 1 0)) - sort-fold-case) + (saved-list (make-list 1 0))) ;; First create a sorted list of saved faces. (mapatoms (lambda (symbol) -- 2.28.0