/[emacs]/emacs/lisp/gnus/mm-view.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mm-view.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by lektu, Wed Aug 31 13:07:49 2005 UTC revision 1.17 by miles, Fri Sep 9 01:47:33 2005 UTC
# Line 476  Line 476 
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.

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26