[Mew-dist 440] Re: Buffer after the limitter "^L" does not hilited.

A. SAGATA sagata at example.com
1997年 1月 17日 (金) 15:44:11 JST


さがた@NTTです.

# いかん,現実逃避が止まらない..

In message <21298.853473844 at example.com>,
	"A. SAGATA" <sagata at example.com> writes.
sagata> +	;; re-hilighting buffer when "^L" exists. A.SAGATA at example.com
sagata> +	(if mew-emacs19-p
sagata> +	    (if (featurep 'hilit19)
sagata> +		(hilit-rehighlight-buffer-quietly)
sagata> +	      (redraw-display))
sagata> +	  (redraw-display))

もう一度見直したら,この部分は,

+	;; re-hilighting buffer when "^L" exists. A.SAGATA at example.com
+	(and mew-emacs19-p (featurep 'hilit19)
+		(hilit-rehighlight-buffer-quietly))

で,十分ですね. :)
# 前のだと,emacs19 でなかったり,hiliteを使わない時に
# 若干動作が遅くなってしまう.

てなわけで,パッチを出し直します.

-------------- next part --------------
--- mew-1.54/mew-message.el.original	Fri Jan 17 13:08:43 1997
+++ tmp/mew-message.el	Fri Jan 17 15:33:14 1997
@@ -106,6 +106,9 @@
 ;;	  (progn (message "End of message") t) ;Nothing more.
 	  t
 	(mew-message-narrow-to-page 1)		;Go to next page.
+	;; re-hilighting buffer when "^L" exists. A.SAGATA at example.com
+	(and mew-emacs19-p (featurep 'hilit19)
+		(hilit-rehighlight-buffer-quietly))
 	nil
 	)
     ;; More in this page.
-------------- next part --------------
-- 
日本電信電話株式会社 ヒューマンインタフェース研究所
     嵯峨田  淳       sagata at example.com


Mew-dist メーリングリストの案内