From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Yagnesh Raghava Yakkala Newsgroups: gmane.emacs.devel Subject: Re: More noticeable version of (message) Date: Thu, 03 Nov 2011 23:53:29 +0900 Message-ID: <87mxcdcl5i.fsf@live.com> References: <81zkgfyrio.fsf@gmail.com> <81wrbh480a.fsf@gmail.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Trace: dough.gmane.org 1320335124 3313 80.91.229.12 (3 Nov 2011 15:45:24 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 3 Nov 2011 15:45:24 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Nov 03 16:45:20 2011 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1RLzTk-0001Yp-MQ for ged-emacs-devel@m.gmane.org; Thu, 03 Nov 2011 16:45:20 +0100 Original-Received: from localhost ([::1]:47687 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RLzTj-0004p7-C1 for ged-emacs-devel@m.gmane.org; Thu, 03 Nov 2011 11:45:19 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:60914) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RLzTc-0004ou-TD for emacs-devel@gnu.org; Thu, 03 Nov 2011 11:45:17 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RLzTW-0001Rz-PG for emacs-devel@gnu.org; Thu, 03 Nov 2011 11:45:12 -0400 Original-Received: from lo.gmane.org ([80.91.229.12]:40095) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RLzTW-0001QM-H5 for emacs-devel@gnu.org; Thu, 03 Nov 2011 11:45:06 -0400 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1RLzTU-0001Os-GZ for emacs-devel@gnu.org; Thu, 03 Nov 2011 16:45:04 +0100 Original-Received: from raghava-note.lowtem.hokudai.ac.jp ([133.87.217.249]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 03 Nov 2011 16:45:04 +0100 Original-Received: from yagnesh by raghava-note.lowtem.hokudai.ac.jp with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 03 Nov 2011 16:45:04 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 56 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: raghava-note.lowtem.hokudai.ac.jp User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.91 (gnu/linux) Cancel-Lock: sha1:TI9e6F/D+dt3l8AjvksoWJB6YoY= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 80.91.229.12 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:145845 Archived-At: Hi Jambunathan, Jambunathan K writes: > Jambunathan K writes: > >> Craig Muth 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)) ------------------ >>> --Craig >>> >>> >>> -- YYR