[nongnu] elpa/go-mode a480b9a 205/495: more compact implementation of go--delete-whole-line

[ELPA Syncer]

branch: elpa/go-mode
commit a480b9a0bda935f6c24c36d055880164e2677159
Author: Dominik Honnef <dominikh@fork-bomb.org>
Commit: Dominik Honnef <dominikh@fork-bomb.org>

    more compact implementation of go--delete-whole-line
---
 go-mode.el | 35 ++++++++++++-----------------------
 1 file changed, 12 insertions(+), 23 deletions(-)

diff --git a/go-mode.el b/go-mode.el
index 330a51b..473b45c 100644
--- a/go-mode.el
+++ b/go-mode.el
@@ -60,29 +60,18 @@
        (save-excursion (end-of-visible-line) (bobp)))
       (signal 'beginning-of-buffer nil))
 
-  (let (start-point
-        end-point)
-    (cond ((zerop arg)
-           (forward-visible-line 0)
-           (setq start-point (point))
-
-           (end-of-visible-line)
-           (setq end-point (point)))
-          ((< arg 0)
-           (end-of-visible-line)
-           (setq start-point (point))
-
-           (forward-visible-line (1+ arg))
-           (unless (bobp)
-             (backward-char))
-           (setq end-point (point)))
-          (t
-           (forward-visible-line 0)
-           (setq start-point (point))
-
-           (forward-visible-line arg)
-           (setq end-point (point))))
-    (delete-region start-point end-point)))
+  (cond ((zerop arg)
+         (delete-region (progn (forward-visible-line 0) (point))
+                        (progn (end-of-visible-line) (point))))
+        ((< arg 0)
+         (delete-region (progn (end-of-visible-line) (point))
+                        (progn (forward-visible-line (1+ arg))
+                               (unless (bobp)
+                                 (backward-char))
+                               (point))))
+        (t
+         (delete-region (progn (forward-visible-line 0) (point))
+                        (progn (forward-visible-line arg) (point))))))
 
 ;; declare-function is an empty macro that only byte-compile cares
 ;; about. Wrap in always false if to satisfy Emacsen without that