From a184a7edc58e1e053aa317a0f162df7e225597e1 Mon Sep 17 00:00:00 2001 From: Evgeni Kolev Date: Mon, 27 Mar 2017 09:30:10 +0300 Subject: [PATCH] Propertize only perl prototype chars `][$%&*;+@\' as punctuation This prevents variables in signatures such as `sub add ($a, $b)' from being treated as punctuation. * lisp/progmodes/perl-mode.el (perl-syntax-propertize-function): Strictly match only prototype characters as punctuation. (Bug#26037) Copyright-paperwork-exempt: yes --- lisp/progmodes/perl-mode.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index a516f07e72f..b75f32ee200 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -255,9 +255,11 @@ ;; format statements ("^[ \t]*format.*=[ \t]*\\(\n\\)" (1 (prog1 "\"" (perl-syntax-propertize-special-constructs end)))) - ;; Funny things in `sub' arg-specs like `sub myfun ($)' or `sub ($)'. - ;; Be careful not to match "sub { (...) ... }". - ("\\