emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: More noticeable version of (message)


From: Jambunathan K
Subject: Re: More noticeable version of (message)
Date: Thu, 03 Nov 2011 19:34:37 +0530
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.91 (windows-nt)

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)))

>> --Craig
>>
>>
>>

-- 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]