From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Stefan Monnier Newsgroups: gmane.emacs.bugs Subject: bug#17116: perl mode vs. /./ Date: Wed, 02 Apr 2014 15:51:00 -0400 Message-ID: References: <87k3bgyrnt.fsf@jidanni.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1396525577 22883 80.91.229.3 (3 Apr 2014 11:46:17 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 3 Apr 2014 11:46:17 +0000 (UTC) Cc: 17116-done@debbugs.gnu.org To: =?UTF-8?Q?=E7=A9=8D=E4=B8=B9=E5=B0=BC?= Dan Jacobson Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Apr 03 13:46:11 2014 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1WVeJP-00075K-1t for geb-bug-gnu-emacs@m.gmane.org; Thu, 03 Apr 2014 11:51:55 +0200 Original-Received: from localhost ([::1]:40383 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WVRCx-0000p0-Bt for geb-bug-gnu-emacs@m.gmane.org; Wed, 02 Apr 2014 15:52:23 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:46349) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WVRCm-0000hf-Ts for bug-gnu-emacs@gnu.org; Wed, 02 Apr 2014 15:52:20 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WVRCc-0002wN-Rf for bug-gnu-emacs@gnu.org; Wed, 02 Apr 2014 15:52:12 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:60370) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WVRCc-0002wE-Oz for bug-gnu-emacs@gnu.org; Wed, 02 Apr 2014 15:52:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1WVRCc-0004UY-Gf for bug-gnu-emacs@gnu.org; Wed, 02 Apr 2014 15:52:02 -0400 Resent-From: Stefan Monnier Original-Sender: "Debbugs-submit" Resent-To: bug-gnu-emacs@gnu.org Resent-Date: Wed, 02 Apr 2014 19:52:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: cc-closed 17116 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Mail-Followup-To: 17116@debbugs.gnu.org, monnier@iro.umontreal.ca, jidanni@jidanni.org Original-Received: via spool by 17116-done@debbugs.gnu.org id=D17116.139646828717216 (code D ref 17116); Wed, 02 Apr 2014 19:52:01 +0000 Original-Received: (at 17116-done) by debbugs.gnu.org; 2 Apr 2014 19:51:27 +0000 Original-Received: from localhost ([127.0.0.1]:33317 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WVRC3-0004Tb-Ck for submit@debbugs.gnu.org; Wed, 02 Apr 2014 15:51:27 -0400 Original-Received: from mercure.iro.umontreal.ca ([132.204.24.67]:42345) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WVRC1-0004TU-Ka for 17116-done@debbugs.gnu.org; Wed, 02 Apr 2014 15:51:26 -0400 Original-Received: from hidalgo.iro.umontreal.ca (hidalgo.iro.umontreal.ca [132.204.27.50]) by mercure.iro.umontreal.ca (Postfix) with ESMTP id 520C784E3F; Wed, 2 Apr 2014 15:51:25 -0400 (EDT) Original-Received: from lechon.iro.umontreal.ca (lechon.iro.umontreal.ca [132.204.27.242]) by hidalgo.iro.umontreal.ca (Postfix) with ESMTP id D327C1E5B8A; Wed, 2 Apr 2014 15:51:00 -0400 (EDT) Original-Received: by lechon.iro.umontreal.ca (Postfix, from userid 20848) id BCF31B4128; Wed, 2 Apr 2014 15:51:00 -0400 (EDT) In-Reply-To: <87k3bgyrnt.fsf@jidanni.org> ("=?UTF-8?Q?=E7=A9=8D=E4=B8=B9=E5=B0=BC?= Dan Jacobson"'s message of "Thu, 27 Mar 2014 16:25:26 +0800") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) X-DIRO-MailScanner-Information: Please contact the ISP for more information X-DIRO-MailScanner: Found to be clean X-DIRO-MailScanner-SpamCheck: n'est pas un polluriel, SpamAssassin (score=-2.82, requis 5, autolearn=not spam, ALL_TRUSTED -2.82, MC_TSTLAST 0.00) X-DIRO-MailScanner-From: monnier@iro.umontreal.ca X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 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.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:87683 Archived-At: > $ cat o.pl > print for /./; #why is the rest of this line in this color? > $ emacs o.pl Thanks for the clear test case. Because perl-mode doesn't understand this code. It considers the first slash as a "plain slash" (e.g. the one used for division), whereas the second, being right after a punctuation (and hence can's be a division), is assumed to start a regexp. I installed the patch below which should fix those problems. Stefan === modified file 'lisp/progmodes/perl-mode.el' --- lisp/progmodes/perl-mode.el 2014-04-02 19:47:50 +0000 +++ lisp/progmodes/perl-mode.el 2014-04-02 19:48:21 +0000 @@ -276,7 +276,7 @@ ;; perl-font-lock-special-syntactic-constructs. ((concat "\\(?:\\(?:^\\|[^$@&%[:word:]]\\)" (regexp-opt '("split" "if" "unless" "until" "while" "split" - "grep" "map" "not" "or" "and")) + "grep" "map" "not" "or" "and" "for" "foreach")) "\\|[?:.,;=!~({[]\\|\\(^\\)\\)[ \t\n]*\\(/\\)") (2 (ignore (if (and (match-end 1) ; / at BOL.