Re: emacs cannot finish

[TSUCHIYA Masatoshi <tsuchiya@xxxxxxxxxxxxxxxxxxxxxxx>]

>> On Tue, 30 Apr 2002 12:13:50 +0900
>> 「山」== yamaoka@jpl.org (Katsumi Yamaoka) said as follows:

松> 最近ときどき C-x C-c すると

松> Wrong type argument: listp □□)

松> となって、emacs が終了出来ないことがあります。いろいろ調べると、ど
松> うも w3m-el を使うとこうなるようです。

この現象，私も時々悩まされていました…．

山> なお、そういう場合に Emacs を強制終了するには、以下の式を eval
山> (*scratch* バッファにコピーして行末で C-j) すれば良いです。
山> (remove-hook 'kill-emacs-hook 'w3m-arrived-shutdown)

以下のように変更するのはどうでしょう? 一度目の失敗ではエラーが出ますが，
何度やっても終了できないという事態は避けられると思います．

Index: w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.670
diff -u -u -r1.670 w3m.el
--- w3m.el	2002/05/07 12:27:36	1.670
+++ w3m.el	2002/05/09 04:50:07
@@ -1908,8 +1908,15 @@
 		     nil t))
     (setq w3m-arrived-db nil)
     (run-hooks 'w3m-arrived-shutdown-hook)))
+
+(defun w3m-safe-shutdown ()
+  (w3m-condition-case err
+      (w3m-arrived-shutdown)
+    (error
+     (remove-hook 'kill-emacs-hook 'w3m-safe-shutdown)
+     (signal (car err) (cdr err)))))
 
-(add-hook 'kill-emacs-hook 'w3m-arrived-shutdown)
+(add-hook 'kill-emacs-hook 'w3m-safe-shutdown)
 
 
 (defun w3m-url-encode-string (str &optional coding)
-- 
土屋 雅稔  ( TSUCHIYA Masatoshi )