branch: elpa/eat
commit ab0ac1ff762ec0313e24f8277166364cd494c99c
Author: Akib Azmain Turja <[email protected]>
Commit: Akib Azmain Turja <[email protected]>
Make sure symbol is used as face parameter value
* eat.el (eat-term-set-parameter): Make sure face parameter
values are symbols.
---
eat.el | 28 ++++++++++++++--------------
1 file changed, 14 insertions(+), 14 deletions(-)
diff --git a/eat.el b/eat.el
index 60850dc82c..6a23ee720f 100644
--- a/eat.el
+++ b/eat.el
@@ -3277,24 +3277,24 @@ DATA is the selection data encoded in base64."
;; Handle special parameters, and reject invalid values.
(pcase parameter
('bold-face
- (unless (facep value)
- (signal 'wrong-type-argument (list 'facep value)))
+ (unless (and (symbolp value) (facep value))
+ (signal 'wrong-type-argument (list '(symbolp facep) value)))
(setf (eat--t-term-bold-face terminal) value))
('faint-face
- (unless (facep value)
- (signal 'wrong-type-argument (list 'facep value)))
+ (unless (and (symbolp value) (facep value))
+ (signal 'wrong-type-argument (list '(symbolp facep) value)))
(setf (eat--t-term-faint-face terminal) value))
('italic-face
- (unless (facep value)
- (signal 'wrong-type-argument (list 'facep value)))
+ (unless (and (symbolp value) (facep value))
+ (signal 'wrong-type-argument (list '(symbolp facep) value)))
(setf (eat--t-term-italic-face terminal) value))
('slow-blink-face
- (unless (facep value)
- (signal 'wrong-type-argument (list 'facep value)))
+ (unless (and (symbolp value) (facep value))
+ (signal 'wrong-type-argument (list '(symbolp facep) value)))
(setf (eat--t-term-slow-blink-face terminal) value))
('fast-blink-face
- (unless (facep value)
- (signal 'wrong-type-argument (list 'facep value)))
+ (unless (and (symbolp value) (facep value))
+ (signal 'wrong-type-argument (list '(symbolp facep) value)))
(setf (eat--t-term-fast-blink-face terminal) value))
((and (pred symbolp)
(let (rx string-start "color-"
@@ -3305,8 +3305,8 @@ DATA is the selection data encoded in base64."
(pred (>= 255))
index)
(string-to-number number)))
- (unless (facep value)
- (signal 'wrong-type-argument (list 'facep value)))
+ (unless (and (symbolp value) (facep value))
+ (signal 'wrong-type-argument (list '(symbolp facep) value)))
(setf (aref (eat--t-term-color-faces terminal) index)
value))
((and (pred symbolp)
@@ -3318,8 +3318,8 @@ DATA is the selection data encoded in base64."
(pred (>= 255))
index)
(string-to-number number)))
- (unless (facep value)
- (signal 'wrong-type-argument (list 'facep value)))
+ (unless (and (symbolp value) (facep value))
+ (signal 'wrong-type-argument (list '(symbolp facep) value)))
(setf (aref (eat--t-term-font-faces terminal) index)
value)))
;; Set the parameter.
