Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Add calling convention to face-attr-construct

Browse source 
* lisp/faces.el (face-attr-construct): Add
advertised-calling-convention declaration.
This commit is contained in:
Stefan Kangas 2023-08-09 03:30:56 +02:00
parent 6f2e48bc52
commit 08c5cba2e4
2 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/cus-edit.el
View file

@ -3751,7 +3751,7 @@ WIDGET should be a `custom-face' widget."
;; If the user has changed this face in some other way,
;; edit it as the user has specified it.
(if (not (face-spec-match-p face spec (selected-frame)))
(setq spec `((t ,(face-attr-construct face (selected-frame))))))
(setq spec `((t ,(face-attr-construct face)))))
spec))
(defun custom-face-get-current-spec (face)

7
lisp/faces.el
View file

@ -1540,15 +1540,12 @@ argument, prompt for a regular expression using `read-regexp'."
;;; Face specifications (defface).
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Parameter FRAME Is kept for call compatibility to with previous
;; face implementation.
(defun face-attr-construct (face &optional _frame)
"Return a `defface'-style attribute list for FACE.
Value is a property list of pairs ATTRIBUTE VALUE for all specified
face attributes of FACE where ATTRIBUTE is the attribute name and
VALUE is the specified value of that attribute.
Argument FRAME is ignored and retained for compatibility."
VALUE is the specified value of that attribute."
(declare (advertised-calling-convention (face) "30.1"))
(let (result)
(dolist (entry face-attribute-name-alist result)
(let* ((attribute (car entry))