diff options
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/css-mode.el | 10 |
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) |