[Emacs-diffs] Changes to emacs/lisp/font-lock.el

[Colin Walters]

Index: emacs/lisp/font-lock.el
diff -c emacs/lisp/font-lock.el:1.196 emacs/lisp/font-lock.el:1.197
*** emacs/lisp/font-lock.el:1.196       Tue May 21 17:01:35 2002
--- emacs/lisp/font-lock.el     Sat Jun  8 20:40:25 2002
***************
*** 152,160 ****
  ;;    "Default expressions to highlight in Foo mode.")
  ;;
  ;;  (add-hook 'foo-mode-hook
! ;;   (function (lambda ()
! ;;               (make-local-variable 'font-lock-defaults)
! ;;               (setq font-lock-defaults '(foo-font-lock-keywords t)))))
  
  ;;; Adding Font Lock support for modes:
  
--- 152,160 ----
  ;;    "Default expressions to highlight in Foo mode.")
  ;;
  ;;  (add-hook 'foo-mode-hook
! ;;   (lambda ()
! ;;     (make-local-variable 'font-lock-defaults)
! ;;     (setq font-lock-defaults '(foo-font-lock-keywords t))))
  
  ;;; Adding Font Lock support for modes:
  
***************
*** 1465,1473 ****
      (when (nth 4 defaults)
        (set (make-local-variable 'font-lock-beginning-of-syntax-function)
           (nth 4 defaults)))
!     ;; Variable alist?
!     (dolist (x (nthcdr 5 defaults))
!       (set (make-local-variable (car x)) (cdr x)))
      ;; Setup `font-lock-keywords' last because its value might depend
      ;; on other settings (e.g. font-lock-compile-keywords uses
      ;; font-lock-beginning-of-syntax-function).
--- 1465,1472 ----
      (when (nth 4 defaults)
        (set (make-local-variable 'font-lock-beginning-of-syntax-function)
           (nth 4 defaults)))
!     ;; The variable alist is set in font-core.el.
! 
      ;; Setup `font-lock-keywords' last because its value might depend
      ;; on other settings (e.g. font-lock-compile-keywords uses
      ;; font-lock-beginning-of-syntax-function).