🚀 go-pugleaf

$B8M3a!wIY;NDL$G$9!#(B

yamaoka@ga.sony.co.jp ($B;32,(B $B9nH~(B) $B$5$s(B wrote:

;Q2.
;  (let ((cursor-in-echo-area t))
;    (message "Type any key: ")
;    (read-char)
;    )
;  $B$3$s$J$+$s$8$G(B [RET] $BL5$7$G%-!<F~NO$rFI$_$?$$$N$G$9$,!"EvA3$J$,$i(B 
;  minibuffer $B$O(B active $B$K$J$i$J$$$N$G(B cursor $B$OGrH4$-$N$^$^$G$9!#(B
;  $B(#(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!($(B
;  $B("(BType any key: $B""(B                                                  $B("(B
;  $B(&(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(%(B
;  $B$3$l$r(B $B"#(B $B$K$9$kJ}K!$OL5$$$G$7$g$&$+!)(B

$B;d$O!"8=:_(B Emacs 19.28.1 (Mule 2.3) $B$r;H$C$F$$$^$9$,!"(B...
$B"-$G$b!""#$K$J$k$N$G3N$+$a$k$3$H$O$G$-$^$;$s$,(B...

(let ((cursor-in-echo-area t))
  (message "Type any key: ")
  (read-char)
  )

$B0J2<$N%3!<%I$G$O$I$&$G$7$g$&$+!"(B(read-char) $B$r8F$S=P$9A0$K(B
(select-window ...) $B$r;H$C$FL@<(E*$K!"(B(minibuffer-window)
$B$rA*Br$7$F$$$^$9!#(B


$B0F(B-1:
(let ((cursor-in-echo-area t))
  (message "Type any key: ")
  (save-window-excursion
    (select-window (minibuffer-window))
    (read-char)
    )
  )

$B0F(B-2:
(save-window-excursion
  (select-window (minibuffer-window))
  (let ((cursor-in-echo-area t))
    (message "Type any key: ")
    (read-char)
    )
  )

-- 
$B8M3a(B $BL@IW(B ($B$H$+$8(B $B$"$-$*(B)
$BIY;NDL(B($B3t(B) $B%_%I%k%&%'%";v6HK\It(B $BBh0l%_%I%k%&%'%";v6HIt(B $BBh0l3+H/It(B
E-mail:tokaji@db.nm.fujitsu.co.jp (Nifty:GDG02564) Tel:045-471-0294