From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Jefferson Carpenter Newsgroups: gmane.emacs.bugs Subject: bug#27613: [PATCH] Support all perl variable declarators and prefixes Date: Fri, 7 Jul 2017 17:08:52 -0500 Message-ID: <20170707220852.2542-1-jeffersoncarpenter2@gmail.com> NNTP-Posting-Host: blaine.gmane.org X-Trace: blaine.gmane.org 1499466613 4955 195.159.176.226 (7 Jul 2017 22:30:13 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Fri, 7 Jul 2017 22:30:13 +0000 (UTC) Cc: Jefferson Carpenter To: 27613@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Jul 08 00:30:09 2017 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dTblJ-00013C-6c for geb-bug-gnu-emacs@m.gmane.org; Sat, 08 Jul 2017 00:30:09 +0200 Original-Received: from localhost ([::1]:59092 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dTblO-0000Lm-I7 for geb-bug-gnu-emacs@m.gmane.org; Fri, 07 Jul 2017 18:30:14 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:39800) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dTblI-0000Ig-EI for bug-gnu-emacs@gnu.org; Fri, 07 Jul 2017 18:30:09 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dTblD-0005zn-Hv for bug-gnu-emacs@gnu.org; Fri, 07 Jul 2017 18:30:08 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:54487) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dTblD-0005yz-D9 for bug-gnu-emacs@gnu.org; Fri, 07 Jul 2017 18:30:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1dTblC-0006C7-Ta for bug-gnu-emacs@gnu.org; Fri, 07 Jul 2017 18:30:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Jefferson Carpenter Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 07 Jul 2017 22:30:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 27613 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.149946657023744 (code B ref -1); Fri, 07 Jul 2017 22:30:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 7 Jul 2017 22:29:30 +0000 Original-Received: from localhost ([127.0.0.1]:57164 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dTbkg-0006Au-5v for submit@debbugs.gnu.org; Fri, 07 Jul 2017 18:29:30 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:39719) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1dTbQy-0005hg-In for submit@debbugs.gnu.org; Fri, 07 Jul 2017 18:09:09 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dTbQs-0001eC-AL for submit@debbugs.gnu.org; Fri, 07 Jul 2017 18:09:03 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:49264) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dTbQs-0001e5-6h for submit@debbugs.gnu.org; Fri, 07 Jul 2017 18:09:02 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:58913) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dTbQr-0005NZ-0y for bug-gnu-emacs@gnu.org; Fri, 07 Jul 2017 18:09:02 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dTbQn-0001cV-S1 for bug-gnu-emacs@gnu.org; Fri, 07 Jul 2017 18:09:01 -0400 Original-Received: from mail-io0-x243.google.com ([2607:f8b0:4001:c06::243]:34442) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dTbQn-0001bX-Mp for bug-gnu-emacs@gnu.org; Fri, 07 Jul 2017 18:08:57 -0400 Original-Received: by mail-io0-x243.google.com with SMTP id f66so432888iof.1 for ; Fri, 07 Jul 2017 15:08:56 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:date:message-id; bh=y7KwHPAOjHKZRlZrk2Fkf7ooJgbBAmNtmMLDp1oSBLU=; b=slNZSsPAYEGwOPxklZE6t1qkTQtLBs9iUuZucSsznW+ziRL+wUAGqplOnsVG1h4C1o huLYsV15gE1hcKyT5ZPt8xWJDdboOCKVbAzxRlOqqr/gWtqahx92mxT92AMBqSKI460c OdKnspOrpUHYAyCVGeqvJ7gjA9z5+8mCA34JVUhm+2x0ojEb3lpGmb45BWcLVAn5AtN2 upmi+0iORcpfIV3AnC1Lg4VamH+72lNubEeBkfhzrIUlkAid8UbpjQpjVnr/oLOpKDnk 9w6SJylQ5pSqfPwgSQ2ihVxQEx07egmXlMcEH/Z8437N7WPnbOTAc/PEY9Z9lObNCZam HkjA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:date:message-id; bh=y7KwHPAOjHKZRlZrk2Fkf7ooJgbBAmNtmMLDp1oSBLU=; b=YUC0GnYuL/OKvVJT23lsfVtSX5dqI8LR6Wiq4VjxUlJ7Q4sycY8cSOyMaETb1+2GWr K1jVSwDgaRuD102WPmVtP9RnMaGcD+6ptdEfFtUHkuU1wtKo7SKEGxv0thvnHODrwtjH 4kuyluVEeHv+7JmmhdFHTHqAayAaDSpQuLL9fpfuSnWYy/A1pPzJpMlwsY4si9RqkaUW wPliGllr++yTdySuqyQztg4X6k9Ib+GIAge8qP/sz7Ny9fntFr7Wl7VJICn0TbbJbzRH ESouGmSk6AKWBAVD7HcNR+/l+Y2+b7+76/Shs1ztYXfY79OlYp658ERGue770Tgf94Ch Uqkw== X-Gm-Message-State: AKS2vOy3zz7b2zU3UUvNO1Pv1iyKDZyks8GCOkObE5QdjYDhw32qygyc W0/sCUKVPNFVcA== X-Received: by 10.107.1.208 with SMTP id 199mr56985057iob.208.1499465335371; Fri, 07 Jul 2017 15:08:55 -0700 (PDT) Original-Received: from foldingmachine.hsd1.mn.comcast.net (c-73-65-112-208.hsd1.mn.comcast.net. [73.65.112.208]) by smtp.gmail.com with ESMTPSA id e65sm2382039ioe.62.2017.07.07.15.08.54 (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Fri, 07 Jul 2017 15:08:54 -0700 (PDT) Original-Received: by foldingmachine.hsd1.mn.comcast.net (Postfix, from userid 1000) id A4CA22A0269; Fri, 7 Jul 2017 17:08:53 -0500 (CDT) X-Mailer: git-send-email 2.13.2 X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Mailman-Approved-At: Fri, 07 Jul 2017 18:29:29 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.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" Xref: news.gmane.org gmane.emacs.bugs:134319 Archived-At: Syntax highlight declarators and prefixes, and add all variable definitions to imenu. --- lisp/progmodes/perl-mode.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index 3def37a2ea..9cacfac336 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -135,7 +135,7 @@ '(;; Functions (nil "^[ \t]*sub\\s-+\\([-[:alnum:]+_:]+\\)" 1) ;;Variables - ("Variables" "^\\(?:my\\|our\\)\\s-+\\([$@%][-[:alnum:]+_:]+\\)\\s-*=" 1) + ("Variables" "^[ \t]*\\(?:anon\\|argument\\|has\\|local\\|my\\|our\\|state\\|supersede\\)\\s-+\\([$@%][-[:alnum:]+_:]+\\)\\s-*=" 1) ("Packages" "^[ \t]*package\\s-+\\([-[:alnum:]+_:]+\\);" 1) ("Doc sections" "^=head[0-9][ \t]+\\(.*\\)" 1)) "Imenu generic expression for Perl mode. See `imenu-generic-expression'.") @@ -179,8 +179,9 @@ "BEGIN" "END" "return" "exec" "eval") t) "\\>") ;; - ;; Fontify local and my keywords as types. - ("\\<\\(local\\|my\\)\\>" . font-lock-type-face) + ;; Fontify declarators and prefixes as types. + ("\\<\\(anon\\|argument\\|has\\|local\\|my\\|our\\|state\\|supersede\\)\\>" . font-lock-type-face) ; declarators + ("\\<\\(let\\|temp\\)\\>" . font-lock-type-face) ; prefixes ;; ;; Fontify function, variable and file name references. ("&\\(\\sw+\\(::\\sw+\\)*\\)" 1 font-lock-function-name-face) -- 2.11.0