ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2025-10-13 21:03:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix mc/cursor-is-bar as per @cpitclaudel

Browse Source
This commit is contained in:
jules tamagnan 2016-07-05 06:01:11 -04:00
parent 8413969a97
commit d9a6047d1a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
multiple-cursors-core.el
View File

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