mirror of
https://github.com/masscollaborationlabs/emacs.git
synced 2025-07-09 05:30:50 +00:00
87bd14ca8b
* 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.
14 lines
562 B
Perl
14 lines
562 B
Perl
# 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
|
|
{<?xml version="1.0" encoding="UTF-8"?>
|
|
<kml xmlns="http://www.opengis.net/kml/2.2">
|
|
<Document>
|
|
<Folder><name>台灣 %s 廣播電台</name>
|
|
<description><![CDATA[http://radioscanningtw.wikia.com/wiki/台描:地圖 %d-%02d-%02d]]></description>
|
|
}, uc( substr( $ARGV[0], 0, 2 ) ), $year + 1900, $mon + 1, $mday;
|