diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2009-11-30 22:51:34 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2009-11-30 22:51:34 +0000 |
commit | 5237d741a8744f6be1bcbf28f551fc222e6d75ae (patch) | |
tree | dbe151397661bdbf56acd5b79f943cce81b0560a /lisp/progmodes | |
parent | 1613ac12def46f23442274a60d9c3c29527cf8c4 (diff) | |
download | emacs-5237d741a8744f6be1bcbf28f551fc222e6d75ae.tar.gz |
Fix references to jit-lock properties.
* progmodes/perl-mode.el (perl-font-lock-syntactic-keywords):
Refer to jit-lock-defer-multiline, not jit-lock-multiline.
(perl-font-lock-special-syntactic-constructs):
Quote jit-lock-defer-multiline property.
Diffstat (limited to 'lisp/progmodes')
-rw-r--r-- | lisp/progmodes/perl-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index eaa9bbc6af1..563bd10d39d 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -287,7 +287,7 @@ The expansion is entirely correct because it uses the C preprocessor." ;; the syntax-table before point, but better than nothing. (forward-comment (- (point-max))) (put-text-property (point) (match-end 2) - 'jit-lock-multiline t) + 'jit-lock-defer-multiline t) (not (memq (char-before) '(?? ?: ?. ?, ?\; ?= ?! ?~ ?\( ?\[))))) nil ;; A division sign instead of a regexp-match. @@ -387,7 +387,7 @@ The expansion is entirely correct because it uses the C preprocessor." (perl-quote-syntax-table (char-after)) (forward-sexp 1)) (put-text-property pos (line-end-position) - jit-lock-defer-multiline t) + 'jit-lock-defer-multiline t) (looking-at "\\s-*\\sw*e"))) (put-text-property (point) (1+ (point)) 'syntax-table |