[Emacs-diffs] emacs/lisp ChangeLog progmodes/perl-mode.el

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/11/30 22:51:37

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : perl-mode.el 

Log message:
        Fix references to jit-lock properties.
        * progmodes/perl-mode.el (perl-font-lock-syntactic-keywords):
          Refer to jit-lock-defer-multiline, not jit-lock-multiline.
          (perl-font-lock-special-syntactic-constructs):
          Quote jit-lock-defer-multiline property.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16775&r2=1.16776
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/perl-mode.el?cvsroot=emacs&r1=1.83&r2=1.84

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16775
retrieving revision 1.16776
diff -u -b -r1.16775 -r1.16776
--- ChangeLog   30 Nov 2009 21:45:30 -0000      1.16775
+++ ChangeLog   30 Nov 2009 22:51:34 -0000      1.16776
@@ -1,3 +1,11 @@
+2009-11-30  Juanma Barranquero  <address@hidden>
+
+       Fix references to jit-lock properties.
+       * progmodes/perl-mode.el (perl-font-lock-syntactic-keywords):
+       Refer to jit-lock-defer-multiline, not jit-lock-multiline.
+       (perl-font-lock-special-syntactic-constructs):
+       Quote jit-lock-defer-multiline property.
+
 2009-11-30  Dan Nicolaescu  <address@hidden>
 
        * vc-git.el (vc-git-registered): Call vc-git-root only once.

Index: progmodes/perl-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/perl-mode.el,v
retrieving revision 1.83
retrieving revision 1.84
diff -u -b -r1.83 -r1.84
--- progmodes/perl-mode.el      30 Nov 2009 13:43:55 -0000      1.83
+++ progmodes/perl-mode.el      30 Nov 2009 22:51:37 -0000      1.84
@@ -287,7 +287,7 @@
                    ;; the syntax-table before point, but better than nothing.
                    (forward-comment (- (point-max)))
                    (put-text-property (point) (match-end 2)
-                                      'jit-lock-multiline t)
+                                      'jit-lock-defer-multiline t)
                    (not (memq (char-before)
                               '(?? ?: ?. ?, ?\; ?= ?! ?~ ?\( ?\[)))))
             nil ;; A division sign instead of a regexp-match.
@@ -387,7 +387,7 @@
                                         (perl-quote-syntax-table (char-after))
                                       (forward-sexp 1))
                                     (put-text-property pos (line-end-position)
-                                                    jit-lock-defer-multiline t)
+                                                       
'jit-lock-defer-multiline t)
                                     (looking-at "\\s-*\\sw*e")))
                             (put-text-property (point) (1+ (point))
                                                'syntax-table