branch: elpa/multiple-cursors
commit d9a6047d1a49a01d0f86c2c5d2e309d940410e85
Author: jules tamagnan <[email protected]>
Commit: jules tamagnan <[email protected]>
Fix mc/cursor-is-bar as per @cpitclaudel
---
multiple-cursors-core.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/multiple-cursors-core.el b/multiple-cursors-core.el
index 1d6148b..58ccd90 100644
--- a/multiple-cursors-core.el
+++ b/multiple-cursors-core.el
@@ -104,10 +104,10 @@
(set-marker ,s nil))))
(defun mc/cursor-is-bar ()
- "returns true if the cursor is a bar"
- (cond ((equalp cursor-type 'bar) t)
- ((when (listp cursor-type) (equalp (car cursor-type) 'bar)) t)
- (t nil)))
+ "returns non-nil if the cursor is a bar"
+ (or (eq cursor-type 'bar)
+ (and (listp cursor-type)
+ (eq (car cursor-type) 'bar))))
(defun mc/make-cursor-overlay-at-eol (pos)
"Create overlay to look like cursor at end of line."
