From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Thien-Thi Nguyen Newsgroups: gmane.emacs.devel Subject: scheme font-locking: (define ((foo ...) bar) ...) Date: Fri, 09 Jul 2010 14:56:26 +0200 Message-ID: <87mxu0stj9.fsf@ambire.localdomain> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: dough.gmane.org 1278680361 3060 80.91.229.12 (9 Jul 2010 12:59:21 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Fri, 9 Jul 2010 12:59:21 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Jul 09 14:59:19 2010 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1OXDAk-0004sT-TV for ged-emacs-devel@m.gmane.org; Fri, 09 Jul 2010 14:59:19 +0200 Original-Received: from localhost ([127.0.0.1]:42933 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OXDAk-0001rO-BN for ged-emacs-devel@m.gmane.org; Fri, 09 Jul 2010 08:59:18 -0400 Original-Received: from [140.186.70.92] (port=55286 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OXDAc-0001ot-28 for emacs-devel@gnu.org; Fri, 09 Jul 2010 08:59:11 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OXDAa-00023i-EQ for emacs-devel@gnu.org; Fri, 09 Jul 2010 08:59:09 -0400 Original-Received: from smtp205.alice.it ([82.57.200.101]:37333) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OXDAa-00023N-44 for emacs-devel@gnu.org; Fri, 09 Jul 2010 08:59:08 -0400 Original-Received: from ambire.localdomain (95.244.66.122) by smtp205.alice.it (8.5.124.08) id 4C1A2645017CB998 for emacs-devel@gnu.org; Fri, 9 Jul 2010 14:59:05 +0200 Original-Received: from ttn by ambire.localdomain with local (Exim 4.69) (envelope-from ) id 1OXD7z-0001TS-11 for emacs-devel@gnu.org; Fri, 09 Jul 2010 14:56:27 +0200 X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. 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: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:126948 Archived-At: --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable In Scheme mode, Emacs font locks the form: (define (in-vicinity-proc dir) (lambda (filename) (in-vicinity dir filename))) with =E2=80=98define=E2=80=99 as a keyword and =E2=80=98in-vicinity-proc=E2= =80=99 as a function name, using font-lock-{keyword,function-name}-face, respectively. That's fine. However, for this form: (define ((in-vicinity-proc dir) filename) (in-vicinity dir filename)) then Emacs font locks only =E2=80=98define=E2=80=99. I have locally modifi= ed =E2=80=98scheme-font-lock-keywords-1=E2=80=99 to change "zero or one parens" to "zero or more parens" and that change seems to DTRT. Could someone please review the patch below and apply it? thi _______________________________________________ --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=0001-Improve-Scheme-font-locking-for-define-foo.patch >From 6bdb80748bda69436d47066365e352ac909fe450 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Fri, 9 Jul 2010 14:52:48 +0200 Subject: [PATCH] Improve Scheme font-locking for (define ((foo ...) ...) ...). * lisp/progmodes/scheme.el (scheme-font-lock-keywords-1): To find the declared object, ignore zero or more parens, not zero or one. --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/scheme.el | 2 +- 2 files changed, 7 insertions(+), 1 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b3af13b..3c6d07d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2010-07-09 Thien-Thi Nguyen + + Improve Scheme font-locking for (define ((foo ...) ...) ...). + * progmodes/scheme.el (scheme-font-lock-keywords-1): To find + the declared object, ignore zero or more parens, not zero or one. + 2010-07-08 Daiki Ueno * epa-file.el (epa-file-error, epa-file--find-file-not-found-function) diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index ce8a342..fb5eafe 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -307,7 +307,7 @@ See `run-hooks'." "\\|-module" "\\)\\)\\>" ;; Any whitespace and declared object. - "[ \t]*(?" + "[ \t]*(*" "\\(\\sw+\\)?") '(1 font-lock-keyword-face) '(6 (cond ((match-beginning 3) font-lock-function-name-face) -- 1.6.3.2 --=-=-=--