Path: utzoo!utgpu!water!watmath!clyde!att!rutgers!ucsd!ucsdhub!hp-sdd!hplabs!hpda!hpcuhb!hpcllla!hpclisp!hpcljms!brians
From: brians@hpcljms.HP.COM (Brian Sullivan)
Newsgroups: comp.emacs
Subject: Re: assorted questions
Message-ID: <860005@hpcljms.HP.COM>
Date: 23 Sep 88 19:57:14 GMT
References: 
Organization: HP NSG/ISD California Language Lab
Lines: 14


   Here is a function that I use that implements a better ^K function.  It will kill
the entire line if you are in the first column, otherwise it behaves like the
traditional kill-line function.



(defun kill-line-twice (&optional numlines)
  "Acts like normal kill except kills entire line if at beginning"
  (interactive "p")
  (cond ( (or (= (current-column) 0) (> numlines 1)) (kill-line numlines) )
	( t (kill-line) )
  )
)