From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Andreas Schwab Newsgroups: gmane.emacs.bugs Subject: bug#39277: 26.3; Tcl font lock does not understand quoting Date: Tue, 27 Oct 2020 09:51:17 +0100 Message-ID: <87eelkcare.fsf@igel.home> References: <20200125100009.33e3cpgmjszmpwzq@gentoo-zen2700x> <87lffs1zvw.fsf@cnu407c2zx.nsn-intra.net> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="21248"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux) Cc: 39277@debbugs.gnu.org, Hadrien Lacour To: mvar Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Tue Oct 27 09:52:27 2020 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1kXKiQ-0005Td-Kw for geb-bug-gnu-emacs@m.gmane-mx.org; Tue, 27 Oct 2020 09:52:26 +0100 Original-Received: from localhost ([::1]:42864 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1kXKiP-0006bn-Fc for geb-bug-gnu-emacs@m.gmane-mx.org; Tue, 27 Oct 2020 04:52:25 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:39450) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kXKi2-0006ba-9z for bug-gnu-emacs@gnu.org; Tue, 27 Oct 2020 04:52:02 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:59476) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1kXKi1-0001Pa-TC for bug-gnu-emacs@gnu.org; Tue, 27 Oct 2020 04:52:01 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1kXKi1-0001EN-SD for bug-gnu-emacs@gnu.org; Tue, 27 Oct 2020 04:52:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Andreas Schwab Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 27 Oct 2020 08:52:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 39277 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: fixed Original-Received: via spool by 39277-submit@debbugs.gnu.org id=B39277.16037886824682 (code B ref 39277); Tue, 27 Oct 2020 08:52:01 +0000 Original-Received: (at 39277) by debbugs.gnu.org; 27 Oct 2020 08:51:22 +0000 Original-Received: from localhost ([127.0.0.1]:42789 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kXKhO-0001DS-3a for submit@debbugs.gnu.org; Tue, 27 Oct 2020 04:51:22 -0400 Original-Received: from mail-out.m-online.net ([212.18.0.9]:57126) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kXKhM-0001DJ-9m for 39277@debbugs.gnu.org; Tue, 27 Oct 2020 04:51:20 -0400 Original-Received: from frontend01.mail.m-online.net (unknown [192.168.8.182]) by mail-out.m-online.net (Postfix) with ESMTP id 4CL55z013Rz1qt4C; Tue, 27 Oct 2020 09:51:18 +0100 (CET) Original-Received: from localhost (dynscan1.mnet-online.de [192.168.6.70]) by mail.m-online.net (Postfix) with ESMTP id 4CL55y5DtTz1qtYr; Tue, 27 Oct 2020 09:51:18 +0100 (CET) X-Virus-Scanned: amavisd-new at mnet-online.de Original-Received: from mail.mnet-online.de ([192.168.8.182]) by localhost (dynscan1.mail.m-online.net [192.168.6.70]) (amavisd-new, port 10024) with ESMTP id TJw5y9x0x1UW; Tue, 27 Oct 2020 09:51:18 +0100 (CET) X-Auth-Info: dswPw6KrRhhOXKNZeGV5ujaqTUeLXpNRBTGhrgM/k2ybxBciO7d0RxJjPZnltZiD Original-Received: from igel.home (ppp-46-244-161-64.dynamic.mnet-online.de [46.244.161.64]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by mail.mnet-online.de (Postfix) with ESMTPSA; Tue, 27 Oct 2020 09:51:17 +0100 (CET) Original-Received: by igel.home (Postfix, from userid 1000) id 94A6F2C0A66; Tue, 27 Oct 2020 09:51:17 +0100 (CET) In-Reply-To: <87lffs1zvw.fsf@cnu407c2zx.nsn-intra.net> (mvar's message of "Mon, 26 Oct 2020 22:44:03 +0200") X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:191711 Archived-At: On Okt 26 2020, mvar wrote: > diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el > index 33aad2d39f..5dd02c1367 100644 > --- a/lisp/progmodes/tcl.el > +++ b/lisp/progmodes/tcl.el > @@ -410,7 +410,8 @@ tcl-font-lock-keywords > (defconst tcl-syntax-propertize-function > (syntax-propertize-rules > ;; Mark the few `#' that are not comment-markers. > - ("[^;[{ \t\n][ \t]*\\(#\\)" (1 "."))) > + ("[^;[{ \t\n][ \t]*\\(#\\)" (1 ".")) > + ((concat "\\_<" (regexp-opt tcl-builtin-list t) "\\_>" "\s*{\\([^}].*\\)}") (2 "_"))) > "Syntactic keywords for `tcl-mode'.") > > ;; FIXME need some way to recognize variables because array refs look > @@ -506,6 +507,7 @@ tcl-set-font-lock-keywords > ;; number of "namespace::" qualifiers. A leading "::" refers > ;; to the global namespace. > '("\\${\\([^}]+\\)}" 1 font-lock-variable-name-face) > + '("{\\([^}]+\\)}" 1 font-lock-string-face) That mishandles nested or quoted braces. -- Andreas Schwab, schwab@linux-m68k.org GPG Key fingerprint = 7578 EB47 D4E5 4D69 2510 2552 DF73 E780 A9DA AEC1 "And now for something completely different."