branch: elpa/multiple-cursors
commit ccb42b5d70a6037d6d032dbbb829c88a9129f42c
Author: Magnar Sveen <[email protected]>
Commit: Magnar Sveen <[email protected]>
Inline defun for better readability.
---
mc-mark-more.el | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/mc-mark-more.el b/mc-mark-more.el
index eba7bed..ac669fc 100644
--- a/mc-mark-more.el
+++ b/mc-mark-more.el
@@ -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))
