Newsgroups: fj.editor.emacs,fj.editor.mule
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.iij.ad.jp!tyo1-nec!newssv1-nec!dsp.cl.nec!necscc!nsis.cl.nec.co.jp!nsis!inamura
From: inamura@nsis.cl.nec.co.jp (=?ISO-2022-JP?B?GyRCMHBCPBsoQiAbJEJNOhsoQiA=?==JANE=)
Subject: Re: [mime.el] mime-mode-exit-and-run
In-Reply-To: okabe@kutsuda.kuis.kyoto-u.ac.jp's message of 15 Jul 94 10:40:20 +0900
Content-Type: text/plain; charset=ISO-2022-JP
Message-ID: <INAMURA.94Jul15123555@caesar.nsis.cl.nec.co.jp>
Sender: news@nsis.cl.nec.co.jp
Organization: NEC=?ISO-2022-JP?B?IBskQj5wSnMlNyU5JUYlYCU6GyhC?=
References: <OKABE.94Jul15104021@mitten.kutsuda.kuis.kyoto-u.ac.jp>
Mime-Version: 1.0
Distribution: fj
Date: Fri, 15 Jul 1994 03:35:55 GMT
Lines: 46
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4832 fj.editor.mule:165
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4832&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

>>In article <OKABE.94Jul15104021@mitten.kutsuda.kuis.kyoto-u.ac.jp>,
>>okabe@kutsuda.kuis.kyoto-u.ac.jp (Yasuo Okabe) writes:

YO> mule 1.1 $B$*$h$S(B mh-e 4.0 $B$G(B mime.el,v 1.60
YO>     Subject: Improved Emacs MIME tools: mime.el (part 1/2)
YO> $B$r;H$C$F$$$^$9!#(B

YO> $BNc$($P(B
YO> \C-u\C-c\C-c
YO> $B$GAw$m$&$H$9$k$H(B
YO> Wrong type argument: commandp, 1
YO> $B$N$h$&$J%(%i!<$,=P$^$9!#(B

$B$"$s$^$j;H$&?M$b$$$J$$$@$m$&$H;W$C$FFC$KJs9p$b$7$J$$$^$^!"<+(B
$BJ,$G>!<j$KD>$7$F;H$C$F$?$s$G$9$,!"$?$7$+$K$3$&$J$j$^$9$M!#(B


YO> $B$J$I$K$D$$$F$?$a$7$F$_$?$H$3$m$&$^$/$$$C$F$$$k$h$&$G$9$,!"$3$s$J$b$s$G(B
YO> $B$$$$$N$+$I$&$+<+?.$,$"$j$^$;$s!#(B
YO> $B!&$3$l$8$c$!L58B%k!<%W$K$J$k$>!#(B
YO> $B!&$3$l$G$O(B XXX $B$N>l9g$K$&$^$/$$$+$J$$!#(B
YO> $B!&$3$&=q$-$c$b$C$H4JC1!#(B

$B$?$V$s$3$l$GBg>fIW$@$H;W$$$^$9$,!";29M$^$G$K$o$?$7$O(B

(defun mime-mode-exit-and-run ()
  "Run a command bound to the same key on old keymap after the translation."
  (interactive)
  (let* ((keyseq (this-command-keys))
 (map mime-mode-old-local-map)
 (cmd (lookup-key map keyseq)))
    (if (and cmd (integerp cmd))
(while (integerp cmd)
  (setq keyseq (substring keyseq cmd))
  (setq cmd (lookup-key map keyseq))))
    (mime-mode-exit)
    (if cmd
(call-interactively cmd))))

$B$N$h$&$KD>$7$F;H$C$F$$$^$9!#(B

$B$3$l$@$HM>J,$J4X?t8F$S=P$7$,F~$i$J$$J,$A$g$C$H$OB.$$(B ($B$s$8$c(B
$B$J$$$+$H$O;W$&$N$G$9$,!"(BElisp $B=hM}7O$N<BAuJ}<0$OA4$/CN$i$J$$(B
$B$N$GBLL\$+$b$7$l$J$$(B) $B$N$G$O!#(B
--
$B0pB<(B $BM:(B =JANE=
