[nongnu] elpa/multiple-cursors d9a6047 384/434: Fix mc/cursor-is-bar as per @cpitclaudel

[ELPA Syncer]

branch: elpa/multiple-cursors
commit d9a6047d1a49a01d0f86c2c5d2e309d940410e85
Author: jules tamagnan <jtamagnan@gmail.com>
Commit: jules tamagnan <jtamagnan@gmail.com>

    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."