Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!is.titech!is-nntp!tomizawa
From: tomizawa@nsc.is.titech.ac.jp (Nobuyuki Tomizawa)
Subject: Re: ibuff-menu.el
References: <1536@cowtop.cow.melco.co.jp> <1537@cowtop.cow.melco.co.jp> 
    <SHIZUKI.93Apr29230009@nsc.is.titech.ac.jp>
Message-ID: <TOMIZAWA.93Apr29232151@nsc.is.titech.ac.jp>
Organization: Dept. of Information Science, Tokyo Institute of Technology, 
    Tokyo, JAPAN
In-Reply-To: shizuki@isea.is.titech.ac.jp's message of Thu, 29 Apr 1993 
    14:00:09 GMT
Sender: news@is.titech.ac.jp (Usenet News System)
Date: Thu, 29 Apr 1993 14:21:51 GMT
Distribution: fj
X-Bytes: 2538
Lines: 74
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:3719
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=3719&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.

$BEl9)Bg$N(B $B$H$_$6$o(B $B$G$9!#(B

> > $B$&$A$G;H$C$F$$$k(BHP-9000$B$N(Bemacs 18.55.13$B!#(Bnemacs 3.3.1($B8E$$(B...)$B$G$OLdBj(B
> > $B$J$/F0$-$^$7$?!#$b$7$+$7$?$i(Bemacs$B$N%P!<%8%g%s$K4X78$"$k$N$+$bCN$l$^$;$s!#(B
> 
>   $B$O$$!"8E$$%P!<%8%g%s$N(B emacs $B$N%P%0$G$9!#(Bcopy-marker $B$N0z?t$K(B
> $B@0?t$r$/$o$;$k$H$3$&$J$k$h$&$G$9!#(B

$BKM$,B4O@$r=q$$$F$$$?Ev;~$+$i$"$k%P%0$G$9!#H>ED$5$s$HCN9g$$!)$i$7$$KM$N(B
$B@hGZ!JEv;~!K$K$J$-$D$$$F!"Ev$F$?%Q%C%A$r:G8e$K$N$;$^$9!#$?$@$7!"<B:]$K!"(B
$B$3$N%Q%C%A$r$"$F$?(Bemacs$B$r;H$C$F$$$k$o$1$G$O$J$$!J(B(copy-marker 0)$B$H$+$$(B
$B$&$H<B:];`$L!K$N$H!"<+J,$G=q$$$?%3!<%I$G$b$J$$$N$G!"F0:n$NJ]>Z$OCW$7$+(B
$B$M$^$9!#(B

$B@hGZ$,Aw$C$?%P%0%l%]!<%H$+$iH4$-=P$7$?$b$N$r$=$N$^$^Aw$j$^$9$N$G!"%Q%C(B
$B%A7A<0$K$O$J$C$F$$$^$;$s$,!"$3$l$b8fN;>52<$5$$!#(Bcopy-marker$B$N$H$3$m$r(B
$BF~$l49$($l$P$$$$$H;W$$$^$9!#F|K\8l$N%3%a%s%H$N$"$kItJ,$,=$@52U=j$N$O$:(B
$B$G$9!#(B

$B$b$A$m$s!":n$jD>$9!J$=$l$bF0:nJ]>Z$N$J$$!*!K5$NO$,$J$1$l$P(B:-)$B!"(B

> (fset 'old-copy-marker (symbol-function 'copy-marker))
> (defun copy-marker (p)
>   (if (integerp p)
> (save-excursion
>   (goto-char p)
>   (point-marker))
>     (old-copy-marker p)))

$B$N$h$&$J$b$N$GJ?5$$G$9!#;d$bB4O@$N$H$-$O$3$l$GF($2$^$7$?!#(B

$B$H$_$6$o(B

-----------------------------------------------------------$B$A$g$-$A$g$-(B--- 

DEFUN ("copy-marker", Fcopy_marker, Scopy_marker, 1, 1, 0,
  "Return a new marker pointing at the same place as MARKER.\n\
If argument is a number, makes a new marker pointing\n\
at that position in the current buffer.")
  (marker)
     register Lisp_Object marker;
{
  register Lisp_Object new;

  while (1)
    {
      if (XTYPE (marker) == Lisp_Int ||
  XTYPE (marker) == Lisp_Marker)
{
  new = Fmake_marker ();
  Fset_marker (new, marker,
       ((XTYPE (marker) == Lisp_Marker)
? Fmarker_buffer (marker)
: Qnil));
/* patch for point_type_marker by K.Handa 89.11.30 */
  XMARKER (new)->type =
    ((XTYPE (marker) == Lisp_Marker)/* $B$3$N%A%'%C%/$,I,MW(B */
     ? XMARKER (marker)->type/* $B:#$^$GDL$j(B */
     : MARKER_OLD_TYPE);/* $B%G%U%)%k%H!J85$N$^$^!K(B*/
  return new;
}
      else
marker = wrong_type_argument (Qinteger_or_marker_p, marker);
    }
}

-----------------------------------------------------------$B$A$g$-$A$g$-(B--- 

--
Nobuyuki Tomizawa
Department of Information Science,
Tokyo Institute of Technology
tomizawa@is.titech.ac.jp
