🚀 go-pugleaf

$@A0ED(J@$@ElBg(J.$@M}(J.$@>pJs$G$9!#(J

In article <NK.92Feb17131645@fubuki.ics.osaka-u.ac.jp>
	nk@ics.osaka-u.ac.jp (Noriya KOBAYASHI) writes:

 >$@$=$&$G$9$M!#(Jkill-line-twice $@$K$D$$$F$O!"$b$&$+$J$jA0$K(Jcomp.emacs$@$+$i;E(J
 >$@F~$l$?$b$N$J$N$G$9!#Ev;~!";d$b(JBELL$@$rLD$i$=$&$H$7$?$N$G$9$,!"$I$&$b4qNo(J
 >$@$J(Jelisp code $@$,$+$1$J$/$F!"$b$H$N;EMM$G2fK}$7$F$$$^$9!#(J

 +	     (if (eobp) (signal 'end-of-buffer nil))

$@$H$$$&(J$@9T$r:G=i$K2C$($l$P$$$$$N$G$O$J$$$G$7$g$&$+!#(J
$@$"$H!"(J
 - 	     (interactive "p")
$@$O(J
 + 	     (interactive "*p")
$@$K$7$?J}$,$$$$$G$7$g$&!#$"$H!"(J(= (current-column) 0) $@$O(J 
(bolp) $@$NJ}$,0B$$$G$9$h$M!#(J

--- ttt1	Mon Feb 17 15:07:11 1992
+++ ttt2	Mon Feb 17 15:07:57 1992
@@ -1,7 +1,8 @@
 (defun kill-line-twice (&optional numlines)
   "Acts like normal kill except kills entire line if at beginning"
-  (interactive "p")
-  (cond ((or (= (current-column) 0)
+  (interactive "*p")
+  (cond ((eobp) (signal 'end-of-buffer nil))
+	((or (bolp)
 	     (> numlines 1))
 	 (kill-line numlines))
 	(t (kill-line))))
--
-----------------------------------------------------
 $@A0ED(J  $@70(J                   kaoru@is.s.u-tokyo.ac.jp
 $@El5~Bg3XBg3X1!M}3X7O8&5f2J>pJs2J3X@l96=$;N2]Dx(J 2 $@G/(J
-----------------------------------------------------