From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Thien-Thi Nguyen Newsgroups: gmane.lisp.guile.devel Subject: #:keyword font locking for scheme.el Date: Mon, 29 Sep 2003 02:12:06 +0200 Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Message-ID: Reply-To: ttn@glug.org NNTP-Posting-Host: deer.gmane.org X-Trace: sea.gmane.org 1064794899 29951 80.91.224.253 (29 Sep 2003 00:21:39 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 29 Sep 2003 00:21:39 +0000 (UTC) Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Mon Sep 29 02:21:37 2003 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1A3lnF-0006Z8-00 for ; Mon, 29 Sep 2003 02:21:37 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.22) id 1A3lnC-0000cv-On for guile-devel@m.gmane.org; Sun, 28 Sep 2003 20:21:34 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.22) id 1A3lma-0000N6-8p for guile-devel@gnu.org; Sun, 28 Sep 2003 20:20:56 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.22) id 1A3lmV-0000KX-Jo for guile-devel@gnu.org; Sun, 28 Sep 2003 20:20:54 -0400 Original-Received: from [199.232.41.8] (helo=mx20.gnu.org) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.22) id 1A3laR-00059N-4c for guile-devel@gnu.org; Sun, 28 Sep 2003 20:08:23 -0400 Original-Received: from [151.37.34.25] (helo=surf.glug.org) by mx20.gnu.org with esmtp (Exim 4.22) id 1A3laC-0006w3-KF for guile-devel@gnu.org; Sun, 28 Sep 2003 20:08:08 -0400 Original-Received: from ttn by surf.glug.org with local (Exim 3.35 #1 (Debian)) id 1A3le2-0003ot-00 for ; Mon, 29 Sep 2003 02:12:06 +0200 Original-To: guile-devel@gnu.org X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Developers list for Guile, the GNU extensibility library List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.devel:2826 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:2826 any objections to this change (patch below) to scheme.el? it enables font locking for both :this-style as well as #:this-style keywords. currently for the latter, the hash is left unfontified, which i suppose could be aesthetically pleasing to some... a related-elisp question: i notice imenu has a similar init string as the one changed for `font-lock-defaults'. should that be changed, too? passing note: guile allows both styles to be recognized as keywords, depending on an option that affects `read'. because of lack of hash fontification back when i was getting into scheme programming (when i finally tried using emacs under X w/ hilit19, that is ;-), a lot of my code avoided "#:key" to use ":key" because it was prettier. silly programmer. thi ____________________________________________________ *** scheme.el.~1.45.~ Sun Sep 7 11:24:10 2003 --- scheme.el Mon Sep 29 01:46:57 2003 *************** *** 165,171 **** (setq font-lock-defaults '((scheme-font-lock-keywords scheme-font-lock-keywords-1 scheme-font-lock-keywords-2) ! nil t (("+-*/.<>=!?$%_&~^:" . "w")) beginning-of-defun (font-lock-mark-block-function . mark-defun) (font-lock-syntactic-face-function . lisp-font-lock-syntactic-face-function)))) --- 165,171 ---- (setq font-lock-defaults '((scheme-font-lock-keywords scheme-font-lock-keywords-1 scheme-font-lock-keywords-2) ! nil t (("+-*/.<>=!?$%_&~^:#" . "w")) beginning-of-defun (font-lock-mark-block-function . mark-defun) (font-lock-syntactic-face-function . lisp-font-lock-syntactic-face-function)))) *************** *** 337,344 **** ;; David Fox for SOS/STklos class specifiers. '("\\<<\\sw+>\\>" . font-lock-type-face) ;; ! ;; Scheme `:' keywords as builtins. ! '("\\<:\\sw+\\>" . font-lock-builtin-face) ))) "Gaudy expressions to highlight in Scheme modes.") --- 337,344 ---- ;; David Fox for SOS/STklos class specifiers. '("\\<<\\sw+>\\>" . font-lock-type-face) ;; ! ;; Scheme `:' and `#:' keywords as builtins. ! '("\\<#*:\\sw+\\>" . font-lock-builtin-face) ))) "Gaudy expressions to highlight in Scheme modes.") _______________________________________________ Guile-devel mailing list Guile-devel@gnu.org http://mail.gnu.org/mailman/listinfo/guile-devel