Re: More noticeable version of (message)

[Jambunathan K]

Yagnesh Raghava Yakkala <address@hidden> writes:

> Hi Jambunathan,
>
> Jambunathan K <address@hidden> writes:
>
>> Jambunathan K <address@hidden> writes:
>>
>>> Craig Muth <address@hidden> writes:
>>>
>>>> I often don't notice the output of lines like (message "hi"),
>>>> especially when in full-screen mode.
>>>>
>>>> Any ideas?  Not a huge fan of beeping because I associate that with
>>>> an error.  I'm on a mac so any face/font stuff is fair game.
>>>
>>> Try this:
>>>
>>> (fset 'message-plain (symbol-function 'message))
>>>
>>> (defun message-colored (fmt-string &rest args)
>>>   (message-plain 
>>>    (propertize
>>>     (apply 'format fmt-string args)
>>>     'face 'font-lock-comment-face)))
>>>
>>> (fset 'message 'message-colored)
>>> You will see that the messages appear in comment face.
>>
>> This is an elegant variation of the above.
>
>>
>> (defadvice message 
>>   (before colored-message activate)
>>   (ad-set-arg 0 (propertize (ad-get-arg 0) 'face 'font-lock-comment-face)))
>>
>
> Noob here.
>
> If I may I ask, is the above defadvise supposed show the
> messages in font-lock-comment-face.?
>
> after evaluating the above, a test gets me the following.
> ------------------
> (message "test")
>   =>
>   #("test" 0 4 (face font-lock-comment-face))
> ------------------

When you eval by hand (using M-: or C-x C-e) the echoed message which is
fontified gets immediately replaced with the return val from message. So
the value that you see above is a stringified version of propertized
text.

Try the below snippet:

(defun hello-world () 
  (interactive)
  (message "hello world"))

M-x hello-world RET

>
>>>> --Craig
>>>>
>>>>
>>>>

--