[Mew-dist 708] bug in mew-demo.el
SAKAI Kiyotaka
ksakai at example.com
1997年 3月 18日 (火) 11:58:40 JST
mew-1.64 の mew-demo.el ですが、mew を起動する (厳密には mew-hello を
実行する) と、最初に mew を起動した buffer で left-margin が nil に設
定されてしまうというバグがありました。このため、newline-and-indent 等
が動かなくなってしまいます。
left-margin は buffer local 変数のため、以下のパッチのように
mew-window-configure の実行後に let で囲うのが正しいコードだと思います。
ただ、元のコードで何故、left-margin の値が再設定されるのかはよく分かり
ません。
あと、buffer 名が " " で始まる buffer は、デフォルトでは undo 情報を保
存しないようになっていることが分かりましたので、mew-demo.el では
buffer-diable-undo を削ってしまっていいと思います。
--
酒井 清隆 (E-mail: ksakai at example.com)
===================================================================
RCS file: RCS/mew-demo.el,v
retrieving revision 1.1
diff -u -r1.1 mew-demo.el
--- mew-demo.el 1997/03/18 02:42:55 1.1
+++ mew-demo.el 1997/03/18 02:47:38
@@ -79,9 +79,8 @@
)
(defun mew-hello ()
- (let ((nbuf (get-buffer-create mew-buffer-hello))
- left-margin fill-column e)
- (mew-window-configure nbuf '(1 0))
+ (mew-window-configure (get-buffer-create mew-buffer-hello) '(1 0))
+ (let (left-margin fill-column e)
(erase-buffer)
(setq left-margin 0)
(setq fill-column (window-width))
@@ -127,7 +126,6 @@
(suf (make-string (1- (- (- wl pl) ul)) 32)))
(save-window-excursion
(select-window (get-buffer-window (get-buffer mew-buffer-hello)))
- (buffer-disable-undo (current-buffer))
(while list
(mew-demo-print (car list) pre suf)
(mew-demo-loop)
Mew-dist メーリングリストの案内