Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!infoweb-news!news.tokyo.infoweb.or.jp!fgwnews!fdmnews!se-news!sol!sutra!sutra!maki
From: maki@strad.se.fujitsu.co.jp (Makihiko Sato)
Subject: Re: [WANTED] Multi-Line Modify Function
In-Reply-To: mon@st.rim.or.jp's message of 29 Mar 1995 03:36:30 GMT
Message-ID: <MAKI.95Mar29193816@sol.strad.se.fujitsu.co.jp>
Sender: usenet@iias.flab.fujitsu.co.jp
Nntp-Posting-Host: sol.strad.se.fujitsu.co.jp
Organization: Research Center of Computational Science, Fujitsu Ltd. Tokyo,
	Japan
References: <3lakju$ql4@news.rim.or.jp>
Distribution: fj
Date: Wed, 29 Mar 1995 10:38:16 GMT
Lines: 55
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:5352
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=5352&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.


$B:4F#(B@$BIY;NDL$G$9!%(B

In article <3lakju$ql4@news.rim.or.jp> mon@st.rim.or.jp writes:

 > $B<!$N$h$&$J5!G=$r<B8=$9$k(Blisp source $B$,$"$l$P!"$I$J$?$+(B
 > $B65$($F$/$@$5$$!#!J(Bsource $B$=$N$b$N$G$b!"$"$j$+$G$b!K(B
------ $BCfN,(B ----------
 > $BNc(B(1)rectangle $B$NCf?H$rF~NO$7$?J8;z$G:9$7BX$($k!#(B
------$BCfN,(B----------
 > $BNc(B(2)$BJ#?t9T$KF1;~$KA^F~$9$k(B
------ $B8eN,(B ----------

 $B$A$g$C$H$44|BT$N;EMM$H$O0c$$$^$9$,!$;w$?$h$&$J5!G=$N4X?t$G$9!%(B

$B$3$N4X?t$O!$;XDj$5$l$F$$$kNN0h$N3F9T$K!$%_%K%P%C%U%!$G;XDj$5$l$?J8;zNs(B
$B$rA^F~$7$^$9!%A^F~0LCV$O!$$3$N4X?t$r8F$s$@;~$N%+!<%=%k$N0LCV$G$9!%(B

$BNc(B1$B$O!$(Bkill-rectangle $B$H$3$N4X?t$r;H$&$H<B8=$G$-$k$G$7$g$&!%(B
$BNc(B2$B$O!$$3$N4X?t$G$OM>J,$J%V%i%s%/$rA^F~$7$F!$J8;zNs$rIU2C$9$k$N$G!$$=(B
$B$N5!G=$r:o$k$H<B8=$G$-$k$G$7$g$&!%(B

# $B;d<+?H$O!$$3$N4X?t$N5!G=$@$1$GK~B-$7$F$^$9$,!%!%(B

----  $B$3$3$+$i(B  -----------------

(defun insert-at-col-region (str)
  (interactive "sInput string : ")
  (let ((clm (current-column))
(rtc nil)
(doc 0)
(iol 0)
(col (count-lines (region-beginning) (region-end))))
    (goto-char (region-beginning))
    (while (< iol col)
      (end-of-line)
      (setq doc (- clm (current-column)))
      (if (< doc 0)
  (move-to-column clm)
(insert-char 32 doc))
      (insert str)
      (setq rtc (point))
      (forward-line 1)
      (setq iol (+ 1 iol)))
    (goto-char rtc)))

----  $B$3$3$^$G(B  -----------------
--
$B:4F#!!bCLZI'(B  $B!wIY;NDL(B($B3t(B)   $B7W;;2J3X8&5f%;%s%?!<(B 2$B8&(B
Tel $B7W;;2J3X(B->  $BD>DL(B:(043)299-3289
Fax.....$BD>DL(B:(043)299-3010, $BFb@~(B:7055-5511
    $B>pJs8&(B->$BD>DL(B:(043)299-3584  $BFb@~(B:7055-5384
Fax.....$BD>DL(B:(043)299-3075, $BFb@~(B:7055-5645
E-mailmaki@strad.se.fujitsu.co.jp, NIFTY:NAE02552
maki@iias.flab.fujitsu.co.jp
