From 87bd14ca8bdecda6964aeb3c323faee846a8c1b8 Mon Sep 17 00:00:00 2001 From: Harald Jörg Date: Fri, 11 Jun 2021 13:52:45 +0200 Subject: ; perl-mode.el: Allow newline between quote-likes and delimiter * lisp/progmodes/perl-mode.el (perl-syntax-propertize-function): Allow newline between a quote-like operator and its delimiter (Bug#22355). * test/lisp/progmodes/cperl-mode-tests.el (cperl-test-bug-22355): Test case for the fix. * test/lisp/progmodes/cperl-mode-resources/cperl-bug-22355.pl: Test resource for a quote-like with newline before the delimiter. --- .../lisp/progmodes/cperl-mode-resources/cperl-bug-22355.pl | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 test/lisp/progmodes/cperl-mode-resources/cperl-bug-22355.pl (limited to 'test/lisp/progmodes/cperl-mode-resources/cperl-bug-22355.pl') diff --git a/test/lisp/progmodes/cperl-mode-resources/cperl-bug-22355.pl b/test/lisp/progmodes/cperl-mode-resources/cperl-bug-22355.pl new file mode 100644 index 00000000000..f54d55241df --- /dev/null +++ b/test/lisp/progmodes/cperl-mode-resources/cperl-bug-22355.pl @@ -0,0 +1,14 @@ +# The source file contains non-ASCII characters, supposed to be saved +# in UTF-8 encoding. Tell Perl about that, just in case. +use utf8; + +# Following code is the example from the report Bug#22355 which needed +# attention in perl-mode. + +printf qq +{ + + + 台灣 %s 廣播電台 + +}, uc( substr( $ARGV[0], 0, 2 ) ), $year + 1900, $mon + 1, $mday; -- cgit v1.2.3