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

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
Download patch file Download diff file Expand all files Collapse all files

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