Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make sure symbol is used as face parameter value

Browse source 
* eat.el (eat-term-set-parameter): Make sure face parameter
values are symbols.
This commit is contained in:
Akib Azmain Turja 2022-12-17 16:11:18 +06:00
parent 74295d2a17
commit ab0ac1ff76
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
eat.el
View file

@ -3277,24 +3277,24 @@ DATA is the selection data encoded in base64."
;; Handle special parameters, and reject invalid values. ;; Handle special parameters, and reject invalid values.
(pcase parameter (pcase parameter
('bold-face ('bold-face
(unless (facep value) (unless (and (symbolp value) (facep value))
(signal 'wrong-type-argument (list 'facep value))) (signal 'wrong-type-argument (list '(symbolp facep) value)))
(setf (eat--t-term-bold-face terminal) value)) (setf (eat--t-term-bold-face terminal) value))
('faint-face ('faint-face
(unless (facep value) (unless (and (symbolp value) (facep value))
(signal 'wrong-type-argument (list 'facep value))) (signal 'wrong-type-argument (list '(symbolp facep) value)))
(setf (eat--t-term-faint-face terminal) value)) (setf (eat--t-term-faint-face terminal) value))
('italic-face ('italic-face
(unless (facep value) (unless (and (symbolp value) (facep value))
(signal 'wrong-type-argument (list 'facep value))) (signal 'wrong-type-argument (list '(symbolp facep) value)))
(setf (eat--t-term-italic-face terminal) value)) (setf (eat--t-term-italic-face terminal) value))
('slow-blink-face ('slow-blink-face
(unless (facep value) (unless (and (symbolp value) (facep value))
(signal 'wrong-type-argument (list 'facep value))) (signal 'wrong-type-argument (list '(symbolp facep) value)))
(setf (eat--t-term-slow-blink-face terminal) value)) (setf (eat--t-term-slow-blink-face terminal) value))
('fast-blink-face ('fast-blink-face
(unless (facep value) (unless (and (symbolp value) (facep value))
(signal 'wrong-type-argument (list 'facep value))) (signal 'wrong-type-argument (list '(symbolp facep) value)))
(setf (eat--t-term-fast-blink-face terminal) value)) (setf (eat--t-term-fast-blink-face terminal) value))
((and (pred symbolp) ((and (pred symbolp)
(let (rx string-start "color-" (let (rx string-start "color-"
@ -3305,8 +3305,8 @@ DATA is the selection data encoded in base64."
(pred (>= 255)) (pred (>= 255))
index) index)
(string-to-number number))) (string-to-number number)))
(unless (facep value) (unless (and (symbolp value) (facep value))
(signal 'wrong-type-argument (list 'facep value))) (signal 'wrong-type-argument (list '(symbolp facep) value)))
(setf (aref (eat--t-term-color-faces terminal) index) (setf (aref (eat--t-term-color-faces terminal) index)
value)) value))
((and (pred symbolp) ((and (pred symbolp)
@ -3318,8 +3318,8 @@ DATA is the selection data encoded in base64."
(pred (>= 255)) (pred (>= 255))
index) index)
(string-to-number number))) (string-to-number number)))
(unless (facep value) (unless (and (symbolp value) (facep value))
(signal 'wrong-type-argument (list 'facep value))) (signal 'wrong-type-argument (list '(symbolp facep) value)))
(setf (aref (eat--t-term-font-faces terminal) index) (setf (aref (eat--t-term-font-faces terminal) index)
value))) value)))
;; Set the parameter. ;; Set the parameter.