+2009-11-30 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * progmodes/perl-mode.el (perl-font-lock-special-syntactic-constructs):
+ Don't signal an error when bumping into EOB in tr, s, or y.
+
2009-11-29 Juri Linkov <juri@jurta.org>
* startup.el (fancy-about-text): Fix wording of Guided Tour.
* ediff-util.el (ediff-minibuffer-with-setup-hook):
New compatibility macro.
- (ediff-read-file-name): Use it instead of
- `minibuffer-with-setup-hook'.
+ (ediff-read-file-name): Use it instead of `minibuffer-with-setup-hook'.
2009-11-29 Juri Linkov <juri@jurta.org>
;; (or some similar separator), or by one of the special keywords
;; corresponding to builtin functions that can take their first arg
;; without parentheses. Of course, that presume we're looking at the
- ;; *opening* slash. We can mis-match the closing ones, because they are
- ;; treated separately later in
+ ;; *opening* slash. We can afford to mis-match the closing ones
+ ;; here, because they will be re-treated separately later in
;; perl-font-lock-special-syntactic-constructs.
(,(concat "\\(?:\\(?:\\(?:^\\|[^$@&%[:word:]]\\)"
(regexp-opt '("split" "if" "unless" "until" "while" "split"
'font-lock-multiline t)
;;
(unless
- (save-excursion
- (with-syntax-table
- (perl-quote-syntax-table (char-after))
- (forward-sexp 1))
- (put-text-property pos (line-end-position)
- 'jit-lock-defer-multiline t)
- (looking-at "\\s-*\\sw*e"))
+ (or (eobp)
+ (save-excursion
+ (with-syntax-table
+ (perl-quote-syntax-table (char-after))
+ (forward-sexp 1))
+ (put-text-property pos (line-end-position)
+ jit-lock-defer-multiline t)
+ (looking-at "\\s-*\\sw*e")))
(put-text-property (point) (1+ (point))
'syntax-table
(if (assoc (char-after)