🚀 go-pugleaf

$@JR;3!w#P#F#U$G$9!#(B

Mule 2.3 (emacs 19.28) $@$K<!$N%P%0$,$"$j$^$9!#$3$l$O(B knwon bug $@$G(B
$@$7$g$&$+!)(B

$@!Z>I>u![(B
C-x C-k m (its:select-mode-from-menu) $@$N:GCf!J%a%K%e!<$,=P$F$$$k(B
$@>uBV!K$K(B C-g (keyboard-quit) $@$rC!$/$H!"(Bits:*current-map* $@$,GK2u(B
$@$5$l!"(Bt $@$K$J$C$F$7$^$$$^$9!#(B

$@$3$&$J$k$H!"(Bits:*current-map* $@$r;H$&4X?t!J(Be.g. toggle-egg-mode$@!K(B
$@$G%(%i!<!J(BWrong type argument: listp, t$@!K$K$J$C$F$7$^$$$^$9!#(B

$@$J$*!"(Bits:*current-map* $@$,%P%C%U%!!<%m!<%+%k$JCM$r(B$@;}$C$F$$$J$$>l(B
$@9g!J%P%C%U%!!<$,:n$i$l$F$+$i!"(Bits:select-* $@$r<B9T$7$F$$$J$$>l9g!K(B
$@$O$3$N8=>]$OH/@8$7$^(B$@$;$s!#(B

$@!ZI|5lJ}K!![(B
$@:F$S(B its:select-mode-from-menu $@$G%b!<%I$rA*Br$9$l$PI|5l$7$^$9!#(B

$@!Z%Q%C%A![(B
*** wnn-egg.el~	Mon Jul 24 06:13:30 1995
--- wnn-egg.el	Sun Apr  7 23:05:40 1996
***************
*** 130,137 ****
  
  (defun its:select-mode-from-menu ()
    (interactive)
    (setcar (nthcdr 2 its:*select-mode-menu*) its:*mode-alist*)
!   (setq its:*current-map* (menu:select-from-menu its:*select-mode-menu*))
    (egg:mode-line-display)
    (run-hooks 'its:select-mode-hook))
  
--- 130,139 ----
  
  (defun its:select-mode-from-menu ()
    (interactive)
+   (let (new-map)
    (setcar (nthcdr 2 its:*select-mode-menu*) its:*mode-alist*)
!   (setq new-map (menu:select-from-menu its:*select-mode-menu*))
!   (setq its:*current-map* new-map))
    (egg:mode-line-display)
    (run-hooks 'its:select-mode-hook))
  
$@!Z860x![(B
(setq A (read-event)) $@$r<B9T$7$F(B C-g $@$rC!$/$H(B setq $@$,9T$J$o$l$F(B
$@$7$^$&$3$H$,1s0x$H$J$C$F(B$@$$$k$h$&$G$9!#$3$l$O(B Emacs Lisp $@$N;EMM$J(B
$@$N$G$7$g$&$+!)$=$l$H$b!"%P%0$J$N$G$7$g$&$+!)(B
--
$@JR;3!w#P#F#U(B