476 |
(buffer-disable-undo) |
(buffer-disable-undo) |
477 |
(mm-insert-part handle) |
(mm-insert-part handle) |
478 |
(require 'font-lock) |
(require 'font-lock) |
479 |
;; Inhibit font-lock this time (*-mode-hook might run |
(let ((font-lock-maximum-size nil) |
480 |
;; `turn-on-font-lock') so that jit-lock may not turn off |
;; Disable support modes, e.g., jit-lock, lazy-lock, etc. |
481 |
;; font-lock immediately after this. |
(font-lock-mode-hook nil) |
482 |
(let ((font-lock-mode t)) |
(font-lock-support-mode nil) |
483 |
(funcall mode)) |
;; I find font-lock a bit too verbose. |
484 |
(let ((font-lock-verbose nil)) |
(font-lock-verbose nil)) |
485 |
;; I find font-lock a bit too verbose. |
(funcall mode) |
486 |
(font-lock-fontify-buffer)) |
;; The mode function might have already turned on font-lock. |
487 |
|
(unless (symbol-value 'font-lock-mode) |
488 |
|
(font-lock-fontify-buffer))) |
489 |
;; By default, XEmacs font-lock uses non-duplicable text |
;; By default, XEmacs font-lock uses non-duplicable text |
490 |
;; properties. This code forces all the text properties |
;; properties. This code forces all the text properties |
491 |
;; to be copied along with the text. |
;; to be copied along with the text. |