From 13e5c1db681ec0324d951b2ccc30de1e201426c5 Mon Sep 17 00:00:00 2001 From: Mauro Aranda Date: Tue, 13 Oct 2020 03:32:17 +0200 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 9c5d89f89ff..3c937534958 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -4681,15 +4681,12 @@ This function does not save the buffer." (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 @@ This function does not save the buffer." (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.39.5