Newsgroups: fj.editor.emacs
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: Re: Customization of elisp programs
In-Reply-To: maeda@src.ricoh.co.jp's message of 01 Feb 1995 07:38:14 GMT
Message-ID: <SUEHIRO.95Feb3170439@csls21.csl.cl.nec.co.jp>
Sender: news@csl.cl.nec.co.jp
Organization: NEC Corporation, Japan.
References: <SUEHIRO.95Jan31151312@csls21.csl.cl.nec.co.jp>
	<MAEDA.95Feb1163814@astaire.src.ricoh.co.jp>
Date: Fri, 3 Feb 1995 08:04:39 GMT
Lines: 29
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:5287
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=5287&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 message <MAEDA.95Feb1163814@astaire.src.ricoh.co.jp>,
maeda@src.ricoh.co.jp (Kaoru MAEDA) writes:
>
> $B$b$C$H!VH~$7$/$J$$!WJ}K!$r$4>R2p$7$^$9(B($B>P(B)$B!#(B

$B$&!<$`!#$*$=$k$Y$7!D!#(B

$B<B$O;d$b(B

(defun replace-list-element (list from to)
  (if (atom list)
      nil
    (progn
      (if (equal (car list) from)
          (setcar list to))
      (replace-list-element (car list) from to)
      (replace-list-element (cdr list) from to))))

(replace-list-element (symbol-function 'main) 'sub2 'my-sub2)

$B$H$$$&$N$r9M$($F$$$?$N$G$9$,!"%P%$%H%3%s%Q%$%k$9$k$H;H$($J$/$J$C$F$7$^$&(B
$B$N$GCGG0$7$?$N$G$7$?!#(B

$B4X?t$=$N$b$N$8$c$J$/$F!"Nc$($P=PNO$5$l$k%a%C%;!<%8$@$1$rJQ99$7$?$$$h$&$J(B
$B>l9g$K$O$b$C$F$3$$$J$s$G$9$,$M!D(B :-)$B!#(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
