|
| From: | Heime |
| Subject: | Writing coloured text |
| Date: | Wed, 16 Nov 2022 08:53:06 +0000 |
Am having problem writing coloured text with the following function.
(defun cmesg (mesg colr bufr)
"TODO."
(let ( (bfr (get-buffer-create bufr))
(pms (propertize mesg
'face '(:foreground colr))) )
(with-current-buffer bfr (insert pms))
(display-buffer bfr)))
| [Prev in Thread] | Current Thread | [Next in Thread] |