1516 |
(t |
(t |
1517 |
'((cperl-load-font-lock-keywords |
'((cperl-load-font-lock-keywords |
1518 |
cperl-load-font-lock-keywords-1 |
cperl-load-font-lock-keywords-1 |
1519 |
cperl-load-font-lock-keywords-2))))) |
cperl-load-font-lock-keywords-2) |
1520 |
|
nil nil ((?_ . "w")))))) |
1521 |
(make-local-variable 'cperl-syntax-state) |
(make-local-variable 'cperl-syntax-state) |
1522 |
(if cperl-use-syntax-table-text-property |
(if cperl-use-syntax-table-text-property |
1523 |
(progn |
(progn |
3841 |
(and (buffer-modified-p) |
(and (buffer-modified-p) |
3842 |
(not modified) |
(not modified) |
3843 |
(set-buffer-modified-p nil)) |
(set-buffer-modified-p nil)) |
3844 |
(set-syntax-table cperl-mode-syntax-table)) |
;; I do not understand what this is doing here. It breaks font-locking |
3845 |
|
;; because it resets the syntax-table from font-lock-syntax-table to |
3846 |
|
;; cperl-mode-syntax-table. |
3847 |
|
;; (set-syntax-table cperl-mode-syntax-table) |
3848 |
|
) |
3849 |
(car err-l))) |
(car err-l))) |
3850 |
|
|
3851 |
(defun cperl-backward-to-noncomment (lim) |
(defun cperl-backward-to-noncomment (lim) |