master 13e5c1d 1/2: Don't bind sort-fold-case when saving the custom-file

[Lars Ingebrigtsen]

branch: master
commit 13e5c1db681ec0324d951b2ccc30de1e201426c5
Author: Mauro Aranda <maurooaranda@gmail.com>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 9c5d89f..3c93753 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)