[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 ()
- [nongnu] elpa/crux acaaa00e 065/112: Bump the copyright years, (continued)
- [nongnu] elpa/crux acaaa00e 065/112: Bump the copyright years, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux c79985f 077/112: Saner functions for modifying cases on region for humans, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux 308f17d 079/112: Bump the copyright years, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux b923d61 082/112: Support creating shells and terminal buffers, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux de603e9 088/112: Add function other-window-or-switch-buffer, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux 96d4faa 097/112: Silence byte-compiler warnings, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux 501a43c 105/112: Placate byte-compiler, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux d989f2a 110/112: Bump copyright years, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux e0457f6 103/112: Fix a major mode check, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux e3e16c1 066/112: Add a missing space, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux fa064d7 068/112: Remove a bunch of redundant progn usages,
ELPA Syncer <=
- [nongnu] elpa/crux 3e07035 073/112: Add missing autoloads, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux 7365fdc 075/112: Add crux-copy-file-preserve-attribute, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux e67d040 078/112: Allow crux-sudo-edit on remote files, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux 2a1a39a 083/112: Add a few GitHub templates, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux 5ba2f3b 084/112: Add a changelog, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux c014640 086/112: Tweak some wording, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux dd3f0e5 089/112: Add function crux-kill-and-join-forward, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux 23ffa81 092/112: Touch up the previous commit, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux 519629b 094/112: Update the changelog, ELPA Syncer, 2021/08/11
- [nongnu] elpa/crux 273390e 101/112: Read file name insead of raw string, ELPA Syncer, 2021/08/11