🚀 go-pugleaf

Some time ago, someone posted a kill-line modification which always
killed thru the newline (if kill-whole-line was non-nil).  I liked
that, but it was too strong for me.  Here is a more general version.
I prefer 2nd alternative of kill-whole-line-regexp:


(defvar kill-whole-line-regexp "[ \t]*$"
  "Regexp telling M-X kill-line when to kill thru newline.  Some possibilities:
\"[ \\t]*$\"	- when no nonblanks in rest of line (default).
\"^\\\\|[ \\t]*$\"	- as above, or when standing at beginning of line. 
\"\"		- always.")

(defun kill-line (&optional arg)
  "Kill the rest of the current line; if no nonblanks there, kill thru newline.
See also variable kill-whole-line-regexp.
With prefix argument, kill that many lines from point.
Negative arguments kill lines backward.

When calling from a program, nil means \"no arg\",
a number counts as a prefix arg."
  (interactive "*P")
  (kill-region (point)
	       (progn
		 (if arg
		     (forward-line (prefix-numeric-value arg))
		   (if (eobp)
		       (signal 'end-of-buffer nil))
		   (if (looking-at kill-whole-line-regexp)
		       (forward-line 1)
		     (end-of-line)))
		 (point))))


Hallvard Furuseth
hallvard@ifi.uio.no