[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 メーリングリストの案内