Function: edt-delete-line
edt-delete-line is an interactive and byte-compiled function defined
in edt.el.gz.
Signature
(edt-delete-line NUM)
Documentation
Delete from cursor up to and including the end of line mark.
Argument NUM is the number of lines to delete.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/emulation/edt.el.gz
;;;
;;; DEL L
;;;
(defun edt-delete-line (num)
"Delete from cursor up to and including the end of line mark.
Argument NUM is the number of lines to delete."
(interactive "*p")
(edt-check-prefix num)
(let ((beg (point)))
(forward-line num)
(if (not (eq (preceding-char) ?\n))
(insert "\n"))
(setq edt-last-deleted-lines
(buffer-substring beg (point)))
(delete-region beg (point))))