From: Mauro Aranda <maurooaranda@gmail.com>
Date: Tue, 13 Oct 2020 01:32:17 +0000 (+0200)
Subject: Don't bind sort-fold-case when saving the custom-file
X-Git-Tag: emacs-28.0.90~5660
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=13e5c1db681ec0324d951b2ccc30de1e201426c5;p=emacs.git

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).
---

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)