From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 21 Aug 2022 16:13:00 +0000 (+0200)
Subject: Simplify `delete-line'
X-Git-Tag: emacs-29.0.90~1893^2~118
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=102258fe1c0bdd2a4c1d9e7ea6c0209f9d62f735;p=emacs.git

Simplify `delete-line'

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

diff --git a/lisp/subr.el b/lisp/subr.el
index cd6a9be099c..3fde0551cc8 100644
--- 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.