[MD:1212]Meadow-1.04a1 freeze with elisp code?

[Kenichi Handa <handa@xxxxxxxxx>]

Kenichi Handa <handa@xxxxxxxxx> writes:

> Miyashita Hisashi(=?ISO-2022-JP?B?GyRCNVwyPBsoQiAbJEI+MBsoQjpISU1J?=) <himi@xxxxxxxxxxxxxxxxxxxxxxxxx> writes:
>> $B$6$C$H8+$?8B$j$G$O!"0J2<$N$b$N$,3:Ev$7$=$&$G$9!#(B
>> (eval.c$B$K$h$k$H!"(Brecord_unwind_protect()$B$b(Bdebug$BA0$K$OL$I>2A$@$+$i(B
>> record_unwind_protect()$B$bBP>]$K$J$k$+$b$7$l$^$;$s!#(B)
>> process.c/read_process_output()
>> $B$H!";W$C$?$i!"$3$$$D$O!"(Bdebug-on-error$B;~$O!"(BQnil$B$rI>2A$9$k$G$O$J$$$G$9$+!#(B^^;;;
>> fileio.c/do_auto_save()
>> $B!)$A$g$C$H$3$l$O>e$NM}M3$+$i<+?.$J$7$G$9!#(B
>> $B$^$"!"(Bprocess.c/read_process_output()$B$_$?$$$J(B
>> $B=$@5J}K!$7$+$J$$$N$+$bCN$l$^$;$s$M!#1x$$$G$9$M$'!#(B;_;

> $B$G$b(B inhibit-redisplay $B$O(B "This is used for internal purposes." $B$H=q$$(B
> $B$F$"$k$N$G!"(BEmacs Lisp $B$G$3$l$r(B bind $B$9$k$N$O$=$b$=$b4V0c$$$G$7$g$&!#(B
> $B$@$+$i!"LdBj$H$J$k$N$O(B menu_item_eval_property $B$@$1$8$c$J$$$+$J!#(B

$B$3$NLdBj$K4X$7$F(B RMS $B$+$i0J2<$N$h$&$J%Q%C%A$rAw$C$F$-$^$7$?!#(B

$B!]!]!!$1$s$A$c$s!w#E#T#L(B
      handa@xxxxxxxxx

--- debug.el	1999/03/27 02:33:08	1.41
+++ debug.el	1999/05/18 04:12:08
@@ -72,6 +72,7 @@
 (defvar debugger-outer-last-event-frame)
 (defvar debugger-outer-standard-input)
 (defvar debugger-outer-standard-output)
+(defvar debugger-outer-inhibit-redisplay)
 (defvar debugger-outer-cursor-in-echo-area)
 
 ;;;###autoload
@@ -116,6 +117,7 @@
 	(debugger-outer-last-event-frame last-event-frame)
 	(debugger-outer-standard-input standard-input)
 	(debugger-outer-standard-output standard-output)
+	(debugger-outer-inhibit-redisplay inhibit-redisplay)
 	(debugger-outer-cursor-in-echo-area cursor-in-echo-area))
     ;; Set this instead of binding it, so that `q'
     ;; will not restore it.
@@ -133,6 +135,7 @@
 	  (enable-recursive-minibuffers
 	   (or enable-recursive-minibuffers (> (minibuffer-depth) 0)))
 	  (standard-input t) (standard-output t)
+	  inhibit-redisplay
 	  (cursor-in-echo-area nil))
       (unwind-protect
 	  (save-excursion
@@ -228,6 +231,7 @@
     (setq last-event-frame debugger-outer-last-event-frame)
     (setq standard-input debugger-outer-standard-input)
     (setq standard-output debugger-outer-standard-output)
+    (setq inhibit-redisplay debugger-outer-inhibit-redisplay)
     (setq cursor-in-echo-area debugger-outer-cursor-in-echo-area)
     (setq debug-on-next-call debugger-step-after-exit)
     debugger-value))
@@ -351,7 +355,11 @@
 	 ;; old buffer deleted
 	 (setq debugger-old-buffer (current-buffer)))
      (set-buffer debugger-old-buffer)
-     (let ((track-mouse debugger-outer-track-mouse)
+     (let ((load-read-function debugger-outer-load-read-function)
+	   (overriding-terminal-local-map
+	    debugger-outer-overriding-terminal-local-map)
+	   (overriding-local-map debugger-outer-overriding-local-map)
+	   (track-mouse debugger-outer-track-mouse)
 	   (last-command debugger-outer-last-command)
 	   (this-command debugger-outer-this-command)
 	   (unread-command-char debugger-outer-unread-command-char)
@@ -364,11 +372,8 @@
 	   (last-event-frame debugger-outer-last-event-frame)
 	   (standard-input debugger-outer-standard-input)
 	   (standard-output debugger-outer-standard-output)
-	   (cursor-in-echo-area debugger-outer-cursor-in-echo-area)
-	   (overriding-local-map debugger-outer-overriding-local-map)
-	   (overriding-terminal-local-map
-	    debugger-outer-overriding-terminal-local-map)
-	   (load-read-function debugger-outer-load-read-function))
+	   (inhibit-redisplay debugger-outer-inhibit-redisplay)
+	   (cursor-in-echo-area debugger-outer-cursor-in-echo-area))
        (set-match-data debugger-outer-match-data)
        (prog1 (progn (,@ body))
 	 (setq debugger-outer-match-data (match-data))
@@ -389,6 +394,7 @@
 	 (setq debugger-outer-last-event-frame last-event-frame)
 	 (setq debugger-outer-standard-input standard-input)
 	 (setq debugger-outer-standard-output standard-output)
+	 (setq debugger-outer-inhibit-redisplay inhibit-redisplay)
 	 (setq debugger-outer-cursor-in-echo-area cursor-in-echo-area)
 	 )))))