/[emacs]/emacs/lisp/progmodes/cperl-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/cperl-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.70 by lektu, Thu Jun 16 16:19:24 2005 UTC revision 1.71 by monnier, Wed Jun 29 07:59:36 2005 UTC
# Line 1516  or as help on variables `cperl-tips', `c Line 1516  or as help on variables `cperl-tips', `c
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
# Line 3840  the sections using `cperl-pod-head-face' Line 3841  the sections using `cperl-pod-head-face'
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)

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26