[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/orgalist 272ed75 3/4: Remove unnecessary checks
From: |
Nicolas Goaziou |
Subject: |
[elpa] externals/orgalist 272ed75 3/4: Remove unnecessary checks |
Date: |
Sat, 15 Sep 2018 10:59:43 -0400 (EDT) |
branch: externals/orgalist
commit 272ed759ce9f1a2820d5fe14bfad53619c221e27
Author: Nicolas Goaziou <address@hidden>
Commit: Nicolas Goaziou <address@hidden>
Remove unnecessary checks
* orgalist.el (orgalist--when-at-item):
(orgalist--when-at-empty-item):
(orgalist--when-in-item): Remove check for `orgalist-mode' since
`orgalist--at-item-p' and `orgalist--in-item-p' already take care of
it.
---
orgalist.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/orgalist.el b/orgalist.el
index 1d6a765..597377f 100644
--- a/orgalist.el
+++ b/orgalist.el
@@ -624,12 +624,11 @@ The function assumes point is at an empty item."
(defun orgalist--when-at-item (cmd)
"Return CMD when point is at a list item."
- (when (and orgalist-mode (orgalist--at-item-p)) cmd))
+ (when (orgalist--at-item-p) cmd))
(defun orgalist--when-at-empty-item (cmd)
"Return CMD when point is at an empty list item."
- (when (and orgalist-mode
- (orgalist--at-item-p)
+ (when (and (orgalist--at-item-p)
(org-match-line orgalist--item-re)
(let ((start (line-beginning-position))
(reference-ind (current-indentation))
@@ -644,7 +643,7 @@ The function assumes point is at an empty item."
(defun orgalist--when-in-item (cmd)
"Return CMD when point is in a list item."
- (when (and orgalist-mode (orgalist--in-item-p)) cmd))
+ (when (orgalist--in-item-p) cmd))
;;; Bindings and menu