Keep hex-color if originally in that format.

misohena · Feb 16, 2025 · 387133c · 387133c
1 parent 46f7e13
commit 387133c
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/edraw-color.el b/edraw-color.el
@@ -1760,7 +1760,10 @@ Signals an error if there is a syntax or other problem, never returns nil."
             (not (eq syntax 'css-color-function))
             (not (plist-get options :disable-hex-color))
             (or (edraw-opaque-p color)
-                (plist-get options :enable-hex-non-opaque)))
+                (plist-get options :enable-hex-non-opaque)
+                ;; Original text is in #RRGGBBAA format
+                (and (eq syntax 'css-hex-color)
+                     (eql (plist-get options :num-components) 4))))
        (edraw-color-css-make-hex-color color options))
      ;; <function-color>
      (edraw-color-css-make-color-function color options))))