[Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el

[Stefan Monnier]

Index: emacs/lisp/progmodes/cperl-mode.el
diff -c emacs/lisp/progmodes/cperl-mode.el:1.70 
emacs/lisp/progmodes/cperl-mode.el:1.71
*** emacs/lisp/progmodes/cperl-mode.el:1.70     Thu Jun 16 16:19:24 2005
--- emacs/lisp/progmodes/cperl-mode.el  Wed Jun 29 07:59:36 2005
***************
*** 1516,1522 ****
         (t
          '((cperl-load-font-lock-keywords
             cperl-load-font-lock-keywords-1
!            cperl-load-font-lock-keywords-2)))))
    (make-local-variable 'cperl-syntax-state)
    (if cperl-use-syntax-table-text-property
        (progn
--- 1516,1523 ----
         (t
          '((cperl-load-font-lock-keywords
             cperl-load-font-lock-keywords-1
!            cperl-load-font-lock-keywords-2)
!             nil nil ((?_ . "w"))))))
    (make-local-variable 'cperl-syntax-state)
    (if cperl-use-syntax-table-text-property
        (progn
***************
*** 3840,3846 ****
        (and (buffer-modified-p)
           (not modified)
           (set-buffer-modified-p nil))
!       (set-syntax-table cperl-mode-syntax-table))
      (car err-l)))
  
  (defun cperl-backward-to-noncomment (lim)
--- 3841,3851 ----
        (and (buffer-modified-p)
           (not modified)
           (set-buffer-modified-p nil))
!       ;; I do not understand what this is doing here.  It breaks font-locking
!       ;; because it resets the syntax-table from font-lock-syntax-table to
!       ;; cperl-mode-syntax-table.
!       ;; (set-syntax-table cperl-mode-syntax-table)
!       )
      (car err-l)))
  
  (defun cperl-backward-to-noncomment (lim)