mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Don't bind sort-fold-case when saving the custom-file

Browse source 
* 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).
This commit is contained in:
Mauro Aranda 2020-10-13 03:32:17 +02:00 • committed by Lars Ingebrigtsen
parent af367a9d59
commit 13e5c1db68
1 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/cus-edit.el
View file

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