procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix order of faces in 'face-list'

Browse source 
* lisp/faces.el (frame-face-alist, face-list): Sort faces in
decreasing order of face IDs.  Patch by Brennan Vincent
<brennan@umanwizard.com>.  (Bug#61521)

Copyright-paperwork-exempt: yes
This commit is contained in:
Eli Zaretskii 2023-02-17 10:27:39 +02:00
parent b44a7ff85d
commit a555abc56d
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/faces.el
View file

@ -191,7 +191,7 @@ For internal use only."
(let ((face-id (car (gethash face face--new-frame-defaults)))) (let ((face-id (car (gethash face face--new-frame-defaults))))
(push `(,face-id ,face . ,spec) faces))) (push `(,face-id ,face . ,spec) faces)))
(frame--face-hash-table frame)) (frame--face-hash-table frame))
(mapcar #'cdr (sort faces (lambda (f1 f2) (< (car f1) (car f2))))))) (mapcar #'cdr (sort faces (lambda (f1 f2) (> (car f1) (car f2)))))))
(defun face-list () (defun face-list ()
"Return a list of all defined faces." "Return a list of all defined faces."
@ -199,7 +199,7 @@ For internal use only."
(maphash (lambda (face spec) (maphash (lambda (face spec)
(push `(,(car spec) . ,face) faces)) (push `(,(car spec) . ,face) faces))
face--new-frame-defaults) face--new-frame-defaults)
(mapcar #'cdr (sort faces (lambda (f1 f2) (< (car f1) (car f2))))))) (mapcar #'cdr (sort faces (lambda (f1 f2) (> (car f1) (car f2)))))))
(defun make-face (face) (defun make-face (face)
"Define a new face with name FACE, a symbol. "Define a new face with name FACE, a symbol.