466 |
(progn |
(progn |
467 |
(buffer-disable-undo) |
(buffer-disable-undo) |
468 |
(mm-insert-part handle) |
(mm-insert-part handle) |
|
(funcall mode) |
|
469 |
(require 'font-lock) |
(require 'font-lock) |
470 |
|
;; Inhibit font-lock this time (*-mode-hook might run |
471 |
|
;; `turn-on-font-lock') so that jit-lock may not turn off |
472 |
|
;; font-lock immediately after this. |
473 |
|
(let ((font-lock-mode t)) |
474 |
|
(funcall mode)) |
475 |
(let ((font-lock-verbose nil)) |
(let ((font-lock-verbose nil)) |
476 |
;; I find font-lock a bit too verbose. |
;; I find font-lock a bit too verbose. |
477 |
(font-lock-fontify-buffer)) |
(font-lock-fontify-buffer)) |