Simplify `delete-line'

* lisp/subr.el (delete-line): Simplify.

diff --git a/lisp/subr.el b/lisp/subr.el
index cd6a9be099c746cfb3317320f405bdb0691583c7..3fde0551cc85433c680b189c20f74400e252a83b 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -6904,10 +6904,7 @@ OBJECT if it is readable."
 
 (defun delete-line ()
   "Delete the current line."
-  (delete-region (line-beginning-position)
-                 (progn
-                   (forward-line 1)
-                   (point))))
+  (delete-region (pos-bol) (pos-bol 2)))
 
 (defun ensure-empty-lines (&optional lines)
   "Ensure that there are LINES number of empty lines before point.