aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/textmodes
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/textmodes')
-rw-r--r--lisp/textmodes/css-mode.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el
index 1d13070f120..7e997ac2c0f 100644
--- a/lisp/textmodes/css-mode.el
+++ b/lisp/textmodes/css-mode.el
@@ -954,11 +954,11 @@ the returned hex string."
954 (let* ((is-percent (match-beginning 1)) 954 (let* ((is-percent (match-beginning 1))
955 (str (match-string (if is-percent 1 2))) 955 (str (match-string (if is-percent 1 2)))
956 (number (string-to-number str))) 956 (number (string-to-number str)))
957 (when is-percent 957 (if is-percent
958 (setq number (* 255 (/ number 100.0)))) 958 (setq number (* 255 (/ number 100.0)))
959 (if (and include-alpha (= iter 3)) 959 (when (and include-alpha (= iter 3))
960 (push (round (* number 255)) result) 960 (setq number (* number 255))))
961 (push (min (max 0 (truncate number)) 255) result)) 961 (push (min (max 0 (round number)) 255) result)
962 (goto-char (match-end 0)) 962 (goto-char (match-end 0))
963 (css--color-skip-blanks) 963 (css--color-skip-blanks)
964 (cl-incf iter) 964 (cl-incf iter)