awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Remove unnecessary let block

Browse Source
This commit is contained in:
Henrik Lissner
2018-09-09 16:39:25 -04:00
committed by Edwin Török
parent 8f5d822363
commit d9a9243a62
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
core/autoload/message.el
View File

@ -47,12 +47,11 @@ Otherwise, it maps colors to a term-color-* face."
(propertize
text 'face
(append (get-text-property 0 'face text)
(let (_)
(cond ((>= code 40)
`(:background ,(caddr (assq style doom-ansi-alist))))
((>= code 30)
`(:foreground ,(face-foreground (caddr (assq style doom-ansi-alist)))))
((cddr (assq style doom-ansi-alist))))))))))
((cddr (assq style doom-ansi-alist)))))))))
;;;###autoload
(defmacro format! (message &rest args)