From d9a6047d1a49a01d0f86c2c5d2e309d940410e85 Mon Sep 17 00:00:00 2001 From: jules tamagnan Date: Tue, 5 Jul 2016 06:01:11 -0400 Subject: [PATCH] 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."