🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.editor.emacs
Article #3297

Re: How to utilize Emacs well sans effort. #2

#3297
From: MASUTANI Yasuhiro
Date: Fri, 21 Feb 1992 05:03
64 lines
3499 bytes
$@>#C+!wBg:eBg3X$G$9!%(J

$@;d$N0J2<$NMM$J<ALd$KBP$7$F?'!9$J2r$r65$($FD:$-$^$7$?!%(J

 > $@;d$O!$%U%!%$%k$NKvHx$NITMW$J6u9T$r>C$9$?$a$K!$8+$($F$$$k:G8e$N9T$N<!$N(J
 > $@9T$N@hF,$G(JBELL$@$,LD$k$^(J$@$G(JC-k$@$r2!$7B3$1$k$H$$$&$3$H$r$d$C$F$$$^$7$?!J$3(J
 > $@$s$J$3$H$7$^$;$s$+!)!K!%$7$+$7!$(Jkill-line-twice$@$G$O(J$@$3$l$,$G$-$^$;$s!%(J
 > $@2?$+NI$$<j$O$"$j$^$;$s$+!)(J

$@$^$:!$(Jkill-line-twice$@$N2~NI$K4X$7$F$O!$A0ED!wElBg$5(J$@$s$H>.D90f!w#N#N#T(J
$@$5$s$+$i65$($FD:$-$^$7$?!%;d$OA0ED$5$s$NJ}K!$r:NMQ$7$^$7$?!%(J

(defun kill-line-twice (&optional numlines)
  "Acts like normal kill except kills entire line if at beginning"
 (interactive "*p")
 (cond ((eobp) (signal 'end-of-buffer nil))
       ((or (bolp)
 	    (> numlines 1))
 	(kill-line numlines))
       (t (kill-line))))
(global-set-key "\C-k" 'kill-line-twice)

$@$3$l$G!$%P%C%U%!(J$@$N:G8e$K5o$k;~$K$O(J`End of Buffer'$@$N7Y9p$,=P$^$9!%(J

$@$=$l$+$i!$$D$$$G$K65$($FD:$-$?$$$N$G$9$,!$(J

 	    (> numlines 1)

$@$H$J$C$F$$$k$N$G!$?t0z?t$,(J1$@$h$jBg$-$$>l9g$K$b(J kill-line$@$rM>J,$K(J1$@2s<B(J
$@9T$9$k$O$:$@$H;W(J$@$&$N$G$9$,!$(J

	`2 M-x kill-line' $@$H(J `2 M-x kill-line-twice'

$@$r$d$C$F$_$^$7$?$,!$F0:n$N0c$$$,$h$/$o$+(J$@$j$^$;$s!%(J


$@<!$K!$%P%C%U%!$N:G8e$N6u9T$r>C$9J}K!$G$9$,(J.....
	
$@A0ED!wElBg$5$s!'(J
 > $@;d$O(J C-x C-o (delete-blank-lines) $@$r;H$$$^$9!#(J
 > $@!V(JBELL$@$,LD$k$^$G!W$N$h$&$JH=Dj$rI,MW$H$;$:0lH/$G(J
 > $@$G$-$^$9!#(J

$@>.@n!w(J$@%;%3%`$5$s!'(J
 >   $@;d$O%U%!%$%kKvHx$N6u9T$r>C$9;~$O(J M-z (zap-to-char) $@$r;H$C(J
 > $@$F$^$9!%$3$l$@$H6u9T$@(J$@$1$8$c$J$/$F!V$3$C$+$i@h%U%!%$%k$N:G8e(J
 > $@$^$GA4It>C$7$?$$!W$H$$$&;~$K$b;H$($FJXMx$G$9!%(J

$@1IED!w#P#F#U(J$@$5$s(J
 > $@$\$/$O!"(JM-> C-w$@$G>C$7$F$^$9$h!#(J

$@C1$K!$;d$NCN$C$F$$$k%-!<%P%$%s%I$,>/$J$+$C$?$H$$$&$3$H$G$9$M(J$@!%$?$@$7!$(J
$@$A$g$C$H8@$$Lu$9$k$H!$8+$($F$$$k:G8e$N9T$N$9$02<$G!H$?$V$s$3$3$,%P%C%U%!(J
$@$N:G8e$@$m$&$1$I!$(J$@M>J,$J6u9T$,L5$$$+3NG'$7$h$&!I$H$$$&$H$-$K$O!$(JC-k$@$O(J
$@#1%9%H%m!<%/$G$9$+$i5$7Z$G$$$$$8$c$J$$$G$9$+(J:-)$@!%(J

MS-DOS$@$N%(%G%#%?$G$O!$(JEOF$@%^!<%/$,$h$/I=<($5$l$F$$$^$9$,!$F1$8$h$&$J$3(J
$@$H$r(JEmacs$@$G$d$k;n$_$O$"$j$^$9(J$@$+!)(Jvi$@$NMM$K%P%C%U%!$N:G8e$h$j8e$O(J`~'$@$rI=(J
$@<($9$k$H$+!%(J
--
===============================================================
  $@>#C+!!J]Gn(J                      563 $@Bg:eI\K-Cf;TBT7s;3D.(J1-1
                                  Tel: 06-844-1151 $@Fb@~(J 4506
  $@Bg:eBg3X(J $@4pAC9)3XIt(J $@5!3#9)3X2J(J  Fax: 06-843-9730 $@D>DL(J
Technical Details
Message-ID: <E64022A.92Feb21140305@ccsparc01.center.osaka-u.ac.jp>
Path: arc1-ca.pugleaf.net!sparky!uunet!think.com!mips!panasonic.com!chorus.mei!icspub!ccsparc01!e64022a
References: <NK.92Feb11234420@fubuki.ics.osaka-u.ac.jp> <E64022A.92Feb17011955@ccsparc01.center.osaka-u.ac.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: ff358,f81c01cb8bd2b987
X-Google-Attributes: gidff358,public
X-Google-ArrivalTime: 1992-02-21 03:17:19 PST
Path: arc1-ca.pugleaf.net!sparky!uunet!think.com!mips!panasonic.com!chorus.mei!icspub!ccsparc01!e64022a
From: e64022a@center.osaka-u.ac.jp (MASUTANI Yasuhiro)
Newsgroups: fj.editor.emacs
Subject: Re: How to utilize Emacs well sans effort. #2
Message-ID: <E64022A.92Feb21140305@ccsparc01.center.osaka-u.ac.jp>
Date: 21 Feb 92 05:03:05 GMT
References: <NK.92Feb11234420@fubuki.ics.osaka-u.ac.jp>
 <E64022A.92Feb17011955@ccsparc01.center.osaka-u.ac.jp>
Sender: news@ccsparc01.center.osaka-u.ac.jp
Distribution: fj
Organization: Computation Center, Osaka University., JAPAN
Lines: 64
In-reply-to: e64022a@ccsparc01.center.osaka-u.ac.jp's message of 16 Feb 92 16:19:55 GMT