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