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

Inline defun for better readability.

Browse Source
This commit is contained in:
Magnar Sveen 2013-03-15 07:01:07 +01:00
parent 8a53db8a39
commit ccb42b5d70
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mc-mark-more.el
View File

@ -327,7 +327,8 @@ With prefix, it behaves the same as original `mc/mark-all-like-this'"
(interactive "P")
(if arg
(mc/mark-all-like-this)
(if (and (mc--no-region-and-in-sgmlish-mode)
(if (and (not (use-region-p))
(derived-mode-p 'sgml-mode)
(mc--on-tag-name-p))
(mc/mark-sgml-tag-pair)
(let ((before (mc/num-cursors)))
@ -346,10 +347,6 @@ With prefix, it behaves the same as original `mc/mark-all-like-this'"
(when (<= (mc/num-cursors) before)
(mc/mark-all-like-this))))))
(defun mc--no-region-and-in-sgmlish-mode ()
(and (not (use-region-p))
(derived-mode-p 'sgml-mode)))
(defun mc--in-defun ()
(bounds-of-thing-at-point 'defun))