Re: view-source で font-lock

[Hiroshi Fujishima <hiroshi.fujishima@xxxxxxxxx>]

Masayuki Ataka <ataka@milk.freemail.ne.jp> writes:

> (defun w3m-view-source-font-lock-toggle ()
>   (interactive)
>   (if (not (string-match "\\`about://source/" w3m-current-url))
>       (setq font-lock-defaults nil)
>     (set (make-local-variable 'font-lock-defaults)
> 	 '((sgml-font-lock-keywords
> 	    sgml-font-lock-keywords-1
> 	    sgml-font-lock-keywords-2)
> 	   nil t nil nil
> 	   (font-lock-syntactic-keywords
> 	    . sgml-font-lock-syntactic-keywords)))
>     ))
>
> 手で実行すると、view-source 時に色はつくのですが
> その後、view-source してない *w3m* セッションで
> font-lock-defaults が nil なのに色が付きます。
> font-lock は font-lock-defaults で制御すると思っていたのですが
> 何か考え違いをしています?

(font-lock-set-defaults) は font-lock-set-defaults が nil の時にには、
font-lock-defaults から、font-lock-keywords を設定しますが、t の場合に
は設定しません。

;; 私の環境では、sgml-mode を require して、M-x
;; w3m-view-source-font-lock-toggle を実行した後
;; font-lock-fontify-buffer を実行しないと色が付きませんでした。

-- 
Hiroshi Fujishima