emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/crux fa064d7 068/112: Remove a bunch of redundant progn us


From: ELPA Syncer
Subject: [nongnu] elpa/crux fa064d7 068/112: Remove a bunch of redundant progn usages
Date: Wed, 11 Aug 2021 09:57:55 -0400 (EDT)

branch: elpa/crux
commit fa064d705f19dccd2275c420dcfdcc70c27e5df2
Author: Bozhidar Batsov <bozhidar@batsov.com>
Commit: Bozhidar Batsov <bozhidar@batsov.com>

    Remove a bunch of redundant progn usages
    
    The `else` part of an `if` expression is automatically wrapped
    in `progn`.
---
 crux.el | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/crux.el b/crux.el
index 34af61e..79c3227 100644
--- a/crux.el
+++ b/crux.el
@@ -164,9 +164,8 @@ Position the cursor at its beginning, according to the 
current mode."
         ;; the current line.
         (insert indent-chars))
     ;; Just use the current major-mode's indent facility.
-    (progn
-      (forward-line -1)
-      (indent-according-to-mode))))
+    (forward-line -1)
+    (indent-according-to-mode)))
 
 (defun crux-smart-open-line (arg)
   "Insert an empty line after the current line.
@@ -176,9 +175,8 @@ With a prefix ARG open line above the current line."
   (interactive "P")
   (if arg
       (crux-smart-open-line-above)
-    (progn
-      (move-end-of-line nil)
-      (newline-and-indent))))
+    (move-end-of-line nil)
+    (newline-and-indent)))
 
 (defun crux-smart-kill-line ()
   "Kill to the end of the line and kill whole line on the next call."
@@ -187,10 +185,8 @@ With a prefix ARG open line above the current line."
     (move-end-of-line 1)
     (if (= orig-point (point))
         (crux-kill-whole-line)
-      (progn
-        (goto-char orig-point)
-        (kill-line))
-      )))
+      (goto-char orig-point)
+      (kill-line))))
 
 
 (defun crux-top-join-line ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]