From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Masatake YAMATO Newsgroups: gmane.emacs.devel Subject: font-lock in machine mode of gdba Date: Mon, 18 Oct 2004 00:29:30 +0900 (JST) Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Message-ID: <20041018.002930.45492341.jet@gyve.org> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: Text/Plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1098027156 4255 80.91.229.6 (17 Oct 2004 15:32:36 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 17 Oct 2004 15:32:36 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Oct 17 17:32:30 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CJD1K-0003al-00 for ; Sun, 17 Oct 2004 17:32:30 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CJD8Z-0000u8-FO for ged-emacs-devel@m.gmane.org; Sun, 17 Oct 2004 11:39:59 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1CJD8T-0000tt-Qd for emacs-devel@gnu.org; Sun, 17 Oct 2004 11:39:53 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1CJD8T-0000th-DF for emacs-devel@gnu.org; Sun, 17 Oct 2004 11:39:53 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CJD8T-0000te-AZ for emacs-devel@gnu.org; Sun, 17 Oct 2004 11:39:53 -0400 Original-Received: from [210.130.136.40] (helo=r-maa.spacetown.ne.jp) by monty-python.gnu.org with esmtp (Exim 4.34) id 1CJD13-0007Wn-QK for emacs-devel@gnu.org; Sun, 17 Oct 2004 11:32:14 -0400 Original-Received: from localhost (h219-110-074-001.catv01.itscom.jp [219.110.74.1]) by r-maa.spacetown.ne.jp (8.11.6) with ESMTP id i9HFWCL07972 for ; Mon, 18 Oct 2004 00:32:12 +0900 (JST) Original-To: emacs-devel@gnu.org X-Mailer: Mew version 4.0.62 on Emacs 21.3.50 / Mule 5.0 (SAKAKI) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 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 Xref: main.gmane.org gmane.emacs.devel:28509 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:28509 I've defined font-lock keywords for `gdb-assembler-mode'. Please, review the patch. I'm afraid the it is too decorative. 2004-10-18 Masatake YAMATO * progmodes/gdb-ui.el (gdb-ann3): Define a key which toggles source view and assembler view. (gdb-assembler-font-lock-keywords): New font lock keywords definition. (gdb-assembler-mode): Use 'gdb-assembler-font-lock-keywords'. Index: lisp/progmodes/gdb-ui.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/progmodes/gdb-ui.el,v retrieving revision 1.24 diff -u -r1.24 gdb-ui.el --- lisp/progmodes/gdb-ui.el 6 Oct 2004 07:20:53 -0000 1.24 +++ lisp/progmodes/gdb-ui.el 17 Oct 2004 15:23:05 -0000 @@ -1939,6 +1947,17 @@ (suppress-keymap map) map)) +(defconst gdb-assembler-font-lock-keywords + '(("\\$?0x*[0-9a-f]+" . font-lock-constant-face) + ("<\\([^+>]+\\)\\+[0-9]+>:" + 1 font-lock-function-name-face) + ("%\\sw+" . font-lock-variable-name-face) + ("^\\(Dump of assembler code for function\\) \\(.+\\):" + (1 font-lock-comment-face) + (2 font-lock-function-name-face)) + ("^\\(End of assembler dump\\.\\)" . font-lock-comment-face)) + "Font lock keywords used in `gdb-assembler-mode'.") + (defun gdb-assembler-mode () "Major mode for viewing code assembler. @@ -1951,6 +1970,9 @@ (setq fringes-outside-margins t) (setq buffer-read-only t) (use-local-map gdb-assembler-mode-map) + (make-local-variable 'font-lock-defaults) + (setq font-lock-defaults '(gdb-assembler-font-lock-keywords)) + (unless font-lock-mode (font-lock-mode 1)) (gdb-invalidate-assembler)) (defun gdb-assembler-buffer-name ()