mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

cperl-mode: Highlight '{$a++ / $b}' correctly

Browse source 
* lisp/progmodes/cperl-mode.el (cperl-find-pods-heres):
Recognize {$a++ / $b} correctly as division.  (Bug#42168)
* test/lisp/progmodes/cperl-mode-tests.el: New file with test
verifying the fix.
This commit is contained in:
Harald Jörg 2020-08-14 10:01:30 +02:00 • committed by Stefan Kangas
parent 32cb84974f
commit f3ff51288f
2 changed files with 53 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/progmodes/cperl-mode.el
View file

@ -3979,6 +3979,9 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
(and (eq (preceding-char) ?.)
(eq (char-after (- (point) 2)) ?.))
(bobp))
;; { $a++ / $b } doesn't start a regex, nor does $a--
(not (and (memq (preceding-char) '(?+ ?-))
(eq (preceding-char) (char-before (1- (point))))))
;; m|blah| ? foo : bar;
(not
(and (eq c ?\?)