procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(perl-mode-syntax-table): Change $ back to just "/" instead of "/ p".

Browse source 
(perl-font-lock-syntactic-keywords): Use ". p" for the `$'.
This commit is contained in:
Stefan Monnier 2002-10-18 21:35:05 +00:00
parent a9645a6697
commit 42be8f2eca
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2002-10-18 Stefan Monnier <monnier@rum.cs.yale.edu>
* progmodes/perl-mode.el (perl-mode-syntax-table): Change $ back
to just "/" instead of "/ p".
(perl-font-lock-syntactic-keywords): Use ". p" for the `$'.
2002-10-18 Juanma Barranquero <lektu@terra.es>
* textmodes/artist.el (artist-ff-is-bottommost-line): Fix misplaced

6
lisp/progmodes/perl-mode.el
View file

@ -139,7 +139,9 @@ The expansion is entirely correct because it uses the C preprocessor."
(let ((st (make-syntax-table (standard-syntax-table))))
(modify-syntax-entry ?\n ">" st)
(modify-syntax-entry ?# "<" st)
(modify-syntax-entry ?$ "/ p" st)
;; `$' is also a prefix char so I was tempted to say "/ p",
;; but the `p' thingy basically overrides the `/' :-( --stef
(modify-syntax-entry ?$ "/" st)
(modify-syntax-entry ?% ". p" st)
(modify-syntax-entry ?@ ". p" st)
(modify-syntax-entry ?& "." st)
@ -250,7 +252,7 @@ The expansion is entirely correct because it uses the C preprocessor."
;; Catch ${ so that ${var} doesn't screw up indentation.
;; This also catches $' to handle 'foo$', although it should really
;; check that it occurs inside a '..' string.
("\\(\\$\\)[{']" (1 "."))
("\\(\\$\\)[{']" (1 ". p"))
;; Handle funny names like $DB'stop.
("\\$ ?{?^?[_a-zA-Z][_a-zA-Z0-9]*\\('\\)[_a-zA-Z]" (1 "_"))
;; format statements