mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

* lisp/progmodes/perl-mode.el (perl-syntax-propertize-function):

Browse Source 
Accept underscores in identifiers after "sub".

Fixes: debbugs:18502
This commit is contained in:
Stefan Monnier 2014-09-21 18:00:28 -04:00
parent 057ba71703
commit 40aef37804
3 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2014-09-21 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/perl-mode.el (perl-syntax-propertize-function):
Accept underscores in identifiers after "sub" (bug#18502).
2014-09-21 Tassilo Horn <tsdh@gnu.org>
* textmodes/reftex-sel.el (reftex-select-label-mode)
@ -6491,7 +6496,7 @@
COMMAND-alternatives variable, assign COMMAND as its definition
name so that `describe-variable' can relocate it.
2014-01-14 Matthew Leach <matthew@mattleach.net> (tiny change)
2014-01-14 Matthew Leach <matthew@mattleach.net>
* font-lock.el (font-lock-keywords): Fix typo in docstring
(bug#16307).

2
lisp/progmodes/perl-mode.el
View File

@ -254,7 +254,7 @@
(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 { (...) ... }".
("\\<sub\\(?:[[:space:]]+[^{}[:punct:][:space:]]+\\)?[[:space:]]*(\\([^)]+\\))"
("\\<sub\\(?:[\s\t\n]+\\(?:\\sw\\|\\s_\\)+\\)?[\s\t\n]*(\\([^)]+\\))"
(1 "."))
;; Turn __DATA__ trailer into a comment.
("^\\(_\\)_\\(?:DATA\\|END\\)__[ \t]*\\(?:\\(\n\\)#.-\\*-.*perl.*-\\*-\\|\n.*\\)"

4
test/indent/perl.perl
View File

@ -1,6 +1,10 @@
#!/usr/bin/perl
# -*- eval: (bug-reference-mode 1) -*-
sub add_funds($) {
return 0;
}
use v5.14;
my $str= <<END;