[nongnu] elpa/eat ab0ac1ff76 2/3: Make sure symbol is used as face parameter value

[ELPA Syncer]

branch: elpa/eat
commit ab0ac1ff762ec0313e24f8277166364cd494c99c
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    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.