[nongnu] elpa/multiple-cursors ccb42b5 227/434: Inline defun for better readability.

[ELPA Syncer]

branch: elpa/multiple-cursors
commit ccb42b5d70a6037d6d032dbbb829c88a9129f42c
Author: Magnar Sveen <magnars@gmail.com>
Commit: Magnar Sveen <magnars@gmail.com>

    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))