branch: externals/orgalist
commit 272ed759ce9f1a2820d5fe14bfad53619c221e27
Author: Nicolas Goaziou <[email protected]>
Commit: Nicolas Goaziou <[email protected]>
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
