Merge from emacs-24; up to 2012-04-30T11:57:47Z!sdl.web@gmail.com
This commit is contained in:
commit
c8d3a25c09
13 changed files with 113 additions and 21 deletions
|
@ -8950,14 +8950,15 @@ do extra unwind via `cperl-unwind-to-safe'."
|
|||
(setq cperl-syntax-done-to (min cperl-syntax-done-to beg))))
|
||||
|
||||
(defun cperl-update-syntaxification (from to)
|
||||
(if (and cperl-use-syntax-table-text-property
|
||||
cperl-syntaxify-by-font-lock
|
||||
(or (null cperl-syntax-done-to)
|
||||
(< cperl-syntax-done-to to)))
|
||||
(progn
|
||||
(save-excursion
|
||||
(goto-char from)
|
||||
(cperl-fontify-syntaxically to)))))
|
||||
(cond
|
||||
((not cperl-use-syntax-table-text-property) nil)
|
||||
((fboundp 'syntax-propertize) (syntax-propertize to))
|
||||
((and cperl-syntaxify-by-font-lock
|
||||
(or (null cperl-syntax-done-to)
|
||||
(< cperl-syntax-done-to to)))
|
||||
(save-excursion
|
||||
(goto-char from)
|
||||
(cperl-fontify-syntaxically to)))))
|
||||
|
||||
(defvar cperl-version
|
||||
(let ((v "Revision: 6.2"))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue