270 |
(make-local-variable 'font-lock-fontified) |
(make-local-variable 'font-lock-fontified) |
271 |
(make-local-variable 'font-lock-multiline) |
(make-local-variable 'font-lock-multiline) |
272 |
(let ((defaults (or font-lock-defaults |
(let ((defaults (or font-lock-defaults |
273 |
(assq major-mode font-lock-defaults-alist)))) |
(cdr (assq major-mode font-lock-defaults-alist))))) |
274 |
;; Variable alist? |
;; Variable alist? |
275 |
(dolist (x (nthcdr 5 defaults)) |
(dolist (x (nthcdr 5 defaults)) |
276 |
(set (make-local-variable (car x)) (cdr x))) |
(set (make-local-variable (car x)) (cdr x))) |