Function: woman-delete-line

woman-delete-line is a byte-compiled function defined in woman.el.gz.

Signature

(woman-delete-line &optional ARG)

Documentation

Delete rest of current line; if all blank then delete thru newline.

With a numeric argument ARG, delete that many lines from point. Negative arguments delete lines backward.

Source Code

;; Defined in /usr/src/emacs/lisp/woman.el.gz
;;; Specialized utility functions:

;;; Fast deletion without saving on the kill ring (cf. simple.el):

(defun woman-delete-line (&optional arg)
  "Delete rest of current line; if all blank then delete thru newline.
With a numeric argument ARG, delete that many lines from point.
Negative arguments delete lines backward."
  ;; This is a non-interactive version of kill-line in simple.el that
  ;; deletes instead of killing and assumes kill-whole-line is nil,
  ;; which is essential!
  (delete-region (point)
		 (progn
		   (if arg
		       (forward-line arg)
		     (if (eobp)
			 (signal 'end-of-buffer nil))
		     (if (looking-at "[ \t]*$")
			 (forward-line 1)
		       (end-of-line)))
		 (point))))