Re: Emacs revision #107149

[Stefan Monnier]

> Try this instead: It solves the actual problem stated in the comment,
> rather than papering over it:

> *** mm-view.el~       2012-02-08 14:25:18.000000000 +0000
> --- mm-view.el        2012-02-12 21:50:34.000000000 +0000
> ***************
> *** 601,610 ****
>         (require 'font-lock)
>         ;; I find font-lock a bit too verbose.
>         (let ((font-lock-verbose nil)
> !         (font-lock-support-mode nil))
>       ;; Disable support modes, e.g., jit-lock, lazy-lock, etc.
>       ;; Note: XEmacs people use `font-lock-mode-hook' to run those modes.
> !     (set (make-local-variable 'font-lock-mode-hook) nil)
>           (setq buffer-file-name (mm-handle-filename handle))
>           (set (make-local-variable 'enable-local-variables) nil)
>       (with-demoted-errors
> --- 601,612 ----
>         (require 'font-lock)
>         ;; I find font-lock a bit too verbose.
>         (let ((font-lock-verbose nil)
> !         (font-lock-support-mode nil)
> !         (font-lock-mode-hook font-lock-mode-hook))
>       ;; Disable support modes, e.g., jit-lock, lazy-lock, etc.
>       ;; Note: XEmacs people use `font-lock-mode-hook' to run those modes.
> !     (remove-hook 'font-lock-mode-hook 'turn-on-fast-lock)
> !     (remove-hook 'font-lock-mode-hook 'turn-on-lazy-lock)
>           (setq buffer-file-name (mm-handle-filename handle))
>           (set (make-local-variable 'enable-local-variables) nil)
>       (with-demoted-errors

Actually, a real fix to this problem involves adding new a font-lock
function, which I like to call font-lock-ensure-fontification, which
mm-view would then call to force immediate fontification of the
specified region.  This function would know how to handle jit-lock,
lazy-lock, and whichever other accelerator we come up with.

Such a functionality is also needed in other packages, such as
in htmlfontify.  We have a bug report for this, but I can't find it
any more.


        Stefan