* bug#11996: Perl mode indentation does not know about the \() construct
@ 2012-07-19 23:08 jidanni
2022-09-20 14:20 ` Mauro Aranda
0 siblings, 1 reply; 3+ messages in thread
From: jidanni @ 2012-07-19 23:08 UTC (permalink / raw)
To: 11996
Perl mode indentation does not know about the \() construct.
[Perl mode defined in `perl-mode.el']
It even reports
forward-sexp: Scan error: "Unbalanced parentheses", 158, 1
{
my @zzzz=(\%seen_couchrequsts, \%seen_people );
my @zzzz=\(%seen_couchrequsts, %seen_people );
my @zzzz=(\%seen_couchrequsts, \%seen_people );
}
^ permalink raw reply [flat|nested] 3+ messages in thread
* bug#11996: Perl mode indentation does not know about the \() construct
2012-07-19 23:08 bug#11996: Perl mode indentation does not know about the \() construct jidanni
@ 2022-09-20 14:20 ` Mauro Aranda
2022-09-20 19:08 ` Lars Ingebrigtsen
0 siblings, 1 reply; 3+ messages in thread
From: Mauro Aranda @ 2022-09-20 14:20 UTC (permalink / raw)
To: 11996; +Cc: jidanni
[-- Attachment #1: Type: text/plain, Size: 628 bytes --]
tags 11996 patch
quit
jidanni@jidanni.org writes:
> Perl mode indentation does not know about the \() construct.
> [Perl mode defined in `perl-mode.el']
> It even reports
> forward-sexp: Scan error: "Unbalanced parentheses", 158, 1
>
> {
> my @zzzz=(\%seen_couchrequsts, \%seen_people );
> my @zzzz=\(%seen_couchrequsts, %seen_people );
> my @zzzz=(\%seen_couchrequsts, \%seen_people );
> }
I can reproduce this on current master. It seems to me that this can be
fixed by modifying the syntax of the backslash character when it is used
as the "backslash operator" and not as an escape character.
[-- Attachment #2: 0001-Recognize-the-backslash-operator-in-perl-mode.patch --]
[-- Type: text/x-patch, Size: 4032 bytes --]
From 2cc9d3c8c5ba49e7a3a84c60619bbe2100f9e008 Mon Sep 17 00:00:00 2001
From: Mauro Aranda <maurooaranda@gmail.com>
Date: Tue, 20 Sep 2022 11:18:45 -0300
Subject: [PATCH] Recognize the backslash operator in perl-mode
* lisp/progmodes/perl-mode.el (perl-syntax-propertize-function):
Add new rule to detect a backslash operator. (Bug#11996)
* test/lisp/progmodes/cperl-mode-tests.el (cperl-test-bug-11996): New
test.
* test/lisp/progmodes/cperl-mode-resources/cperl-bug-11996.pl: New
file.
---
lisp/progmodes/perl-mode.el | 6 ++++
.../cperl-mode-resources/cperl-bug-11996.pl | 8 +++++
test/lisp/progmodes/cperl-mode-tests.el | 30 +++++++++++++++++++
3 files changed, 44 insertions(+)
create mode 100644 test/lisp/progmodes/cperl-mode-resources/cperl-bug-11996.pl
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el
index bd8f4ecd1c..7b7a2cdf01 100644
--- a/lisp/progmodes/perl-mode.el
+++ b/lisp/progmodes/perl-mode.el
@@ -242,6 +242,12 @@ perl-syntax-propertize-function
(not (nth 3 (syntax-ppss
(match-beginning 0))))))
(string-to-syntax ". p"))))
+ ;; If "\" is acting as a backslash operator, it shouldn't start an
+ ;; escape sequence, so change its syntax. This allows us to handle
+ ;; correctly the \() construct (Bug#11996) as well as references
+ ;; to string values.
+ ("\\(\\\\\\)['`\"($]" (1 (unless (nth 3 (syntax-ppss))
+ (string-to-syntax "."))))
;; Handle funny names like $DB'stop.
("\\$ ?{?\\^?[_[:alpha:]][_[:alnum:]]*\\('\\)[_[:alpha:]]" (1 "_"))
;; format statements
diff --git a/test/lisp/progmodes/cperl-mode-resources/cperl-bug-11996.pl b/test/lisp/progmodes/cperl-mode-resources/cperl-bug-11996.pl
new file mode 100644
index 0000000000..566b7e7550
--- /dev/null
+++ b/test/lisp/progmodes/cperl-mode-resources/cperl-bug-11996.pl
@@ -0,0 +1,8 @@
+{
+ my @zzzz=(\%seen_couchrequsts, \%seen_people );
+ my @zzzz=\(%seen_couchrequsts, %seen_people );
+ my @zzzz=(\%seen_couchrequsts, \%seen_people );
+}
+
+print "\"Watch out\"";
+$ref = \"howdy";
diff --git a/test/lisp/progmodes/cperl-mode-tests.el b/test/lisp/progmodes/cperl-mode-tests.el
index 66039d6fc7..1bb206e704 100644
--- a/test/lisp/progmodes/cperl-mode-tests.el
+++ b/test/lisp/progmodes/cperl-mode-tests.el
@@ -788,6 +788,36 @@ cperl-test-bug-10483
(should (string-match
"poop ('foo', \n 'bar')" (buffer-string))))))
+(ert-deftest cperl-test-bug-11996 ()
+ "Verify that we give the right syntax property to a backslash operator."
+ (with-temp-buffer
+ (insert-file-contents (ert-resource-file "cperl-bug-11996.pl"))
+ (funcall cperl-test-mode)
+ (font-lock-ensure)
+ (goto-char (point-min))
+ (re-search-forward "\\(\\\\(\\)")
+ (save-excursion
+ (goto-char (match-beginning 1))
+ (should (equal (syntax-after (point)) (string-to-syntax ".")))
+ ;; `forward-sexp' shouldn't complain.
+ (forward-sexp)
+ (should (char-equal (char-after) ?\;)))
+ (re-search-forward "\\(\\\\\"\\)")
+ (save-excursion
+ (goto-char (match-beginning 1))
+ (should (equal (syntax-after (point)) (string-to-syntax "\\")))
+ (should (equal (get-text-property (point) 'face) 'font-lock-string-face)))
+ (re-search-forward "\\(\\\\\"\\)")
+ (save-excursion
+ (goto-char (match-beginning 1))
+ (should (equal (syntax-after (point)) (string-to-syntax "\\"))))
+ (re-search-forward "\\(\\\\\"\\)")
+ (save-excursion
+ (goto-char (match-beginning 1))
+ (should (equal (syntax-after (point)) (string-to-syntax ".")))
+ (should (equal (get-text-property (1+ (point)) 'face)
+ 'font-lock-string-face)))))
+
(ert-deftest cperl-test-bug-14343 ()
"Verify that inserting text into a HERE-doc string with Elisp
does not break fontification."
--
2.34.1
^ permalink raw reply related [flat|nested] 3+ messages in thread
* bug#11996: Perl mode indentation does not know about the \() construct
2022-09-20 14:20 ` Mauro Aranda
@ 2022-09-20 19:08 ` Lars Ingebrigtsen
0 siblings, 0 replies; 3+ messages in thread
From: Lars Ingebrigtsen @ 2022-09-20 19:08 UTC (permalink / raw)
To: Mauro Aranda; +Cc: 11996, jidanni
Mauro Aranda <maurooaranda@gmail.com> writes:
> I can reproduce this on current master. It seems to me that this can be
> fixed by modifying the syntax of the backslash character when it is used
> as the "backslash operator" and not as an escape character.
Thanks; pushed to Emacs 29.
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2022-09-20 19:08 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2012-07-19 23:08 bug#11996: Perl mode indentation does not know about the \() construct jidanni
2022-09-20 14:20 ` Mauro Aranda
2022-09-20 19:08 ` Lars Ingebrigtsen
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.