Newsgroups: fj.editor.emacs,fj.lang.lisp
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!nec-tyo!tyo1-nec!newssv1-nec!dsp.cl.nec!necscc!csl.cl.nec!csls6!suehiro
From: suehiro@csl.cl.nec.co.jp (SUEHIRO Kenji)
Subject: Customization of elisp programs
Message-ID: <SUEHIRO.95Jan31151312@csls21.csl.cl.nec.co.jp>
Followup-To: fj.editor.emacs
Sender: news@csl.cl.nec.co.jp
Organization: NEC Corporation, Japan.
Date: Tue, 31 Jan 1995 06:13:12 GMT
Lines: 36
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:5275 fj.lang.lisp:882
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=5275&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.

$B65$($F2<$5$$!#(B

  (defun main ()
    (sub1)
    (sub2)
    (sub3))

$B$H$$$&$h$&$J=PMh9g$$$N(B elisp $B%W%m%0%i%`$r%+%9%?%^%$%:$7$?$$$N$G$9!#(B
$B6qBNE*$K$O(B

  (defun main ()
    (sub1)
    (my-sub2)
    (sub3))

$B$N$h$&$K$7$?$$$N$G$9$,!"(Bmain $B<+?H$O$7$g$C$A$e$&:Y$+$$%P!<%8%g%s!&%"%C%W(B
$B$,$"$k$N$G!"<+A0$G(B .emacs $B$J$I$K(B main $B$NDj5A$rA4It;}$D$N$O$$$d$G$9!#(B

$B0lJ}!"(Bsub2 $B$OB>$N%W%m%0%i%`$G$b;H$o$l$F$$$k0lHLE*$J4X?t$J$N$G!"C1=c$K(B 
(defun sub2 ...) $B$G(B sub2 $B$NDj5A$r(B my-sub2 $B$KJQ$($k$o$1$K$O9T$-$^$;$s!#(B

$B!D$H$$$&$h$&$J>l9g!"$I$&$9$k$N$,IaDL$J$N$G$7$g$&$+!#(B

  (fset 'main-orig (symbol-function 'main))
  (defun main ()
    (let ((sub2-orig (symbol-function 'sub2)) ret)
      (fset 'sub2 'my-sub2)
      (setq ret (main-orig))
      (fset 'sub2 sub2-orig)
      ret))

$B$H$+$d$l$P$H$j$"$($:$G$-$=$&$G$9$,!"$b$C$HH~$7$$J}K!$O$J$$$b$N$G$7$g$&$+!#(B
                _
--<IIII>--   _ | |
  --<IIII>--| |TTT     $BKv9-(B $B8,Fs!JKv9-!w#C!u#C8&5f=j!%#N#E#C!K(B
            TTT                         suehiro@csl.cl.nec.co.jp
