[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/multiple-cursors 49fe803 316/434: Merge pull request #163
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/multiple-cursors 49fe803 316/434: Merge pull request #163 from Silex/master |
Date: |
Sat, 7 Aug 2021 09:20:50 -0400 (EDT) |
branch: elpa/multiple-cursors
commit 49fe803f3b20f648ca61bd417ab1533f78068dd1
Merge: f3daf86 912342e
Author: Magnar Sveen <magnars@gmail.com>
Commit: Magnar Sveen <magnars@gmail.com>
Merge pull request #163 from Silex/master
Improve mc-hide-unmatched-lines-mode.el
---
mc-hide-unmatched-lines-mode.el | 33 ++++++++++-----------------------
multiple-cursors-core.el | 1 +
rectangular-region-mode.el | 1 +
3 files changed, 12 insertions(+), 23 deletions(-)
diff --git a/mc-hide-unmatched-lines-mode.el b/mc-hide-unmatched-lines-mode.el
index 67375bf..684080e 100644
--- a/mc-hide-unmatched-lines-mode.el
+++ b/mc-hide-unmatched-lines-mode.el
@@ -29,7 +29,6 @@
;;; Code:
-
(require 'multiple-cursors-core)
(defvar hum/hide-unmatched-lines-mode-map (make-sparse-keymap)
@@ -45,15 +44,15 @@
;; used only in in multiple-cursors-mode-disabled-hook
(defun hum/disable-hum-mode ()
- (mc-hide-unmatched-lines-mode 0)
-)
+ (mc-hide-unmatched-lines-mode 0))
+;;;###autoload
(define-minor-mode mc-hide-unmatched-lines-mode
"Minor mode when enabled hides all lines where no cursos (and
also hum/lines-to-expand below and above) To make use of this
mode press \"C-'\" while multiple-cursor-mode is active. You can
still edit lines while you are in mc-hide-unmatched-lines
-mode. To leave this mode press <return> or \"C-g\""
+mode. To leave this mode press <return> or \"C-g\""
nil " hu"
hum/hide-unmatched-lines-mode-map
(if mc-hide-unmatched-lines-mode
@@ -63,9 +62,7 @@ mode. To leave this mode press <return> or \"C-g\""
(add-hook 'multiple-cursors-mode-disabled-hook 'hum/disable-hum-mode t
t))
(progn
(hum/unhide-unmatched-lines)
- (remove-hook 'multiple-cursors-mode-disabled-hook 'hum/disable-hum-mode))
- )
-)
+ (remove-hook 'multiple-cursors-mode-disabled-hook
'hum/disable-hum-mode))))
(defconst hum/invisible-overlay-name 'hum/invisible-overlay-name)
@@ -77,8 +74,7 @@ mode. To leave this mode press <return> or \"C-g\""
(defcustom hum/placeholder "..."
"Placeholder which will be placed insted of hiden text"
:type '(string)
- :group 'multiple-cursors
-)
+ :group 'multiple-cursors)
(defun hum/add-invisible-overlay (begin end)
(let ((overlay (make-overlay begin
@@ -91,10 +87,7 @@ mode. To leave this mode press <return> or \"C-g\""
(overlay-put overlay 'invisible t)
(overlay-put overlay 'intangible t)
(overlay-put overlay 'evaporate t)
- (overlay-put overlay 'after-string hum/placeholder)
- )
- )
-
+ (overlay-put overlay 'after-string hum/placeholder)))
(defun hum/hide-unmatched-lines ()
(let ((begin (point-min)))
@@ -102,18 +95,12 @@ mode. To leave this mode press <return> or \"C-g\""
(save-excursion
(goto-char (mc/cursor-beg cursor))
(if (< begin (line-beginning-position (- hum/lines-to-expand)))
- (hum/add-invisible-overlay begin (line-end-position (-
hum/lines-to-expand)))
- )
- (setq begin (line-beginning-position (+ 2 hum/lines-to-expand)))
- )
- )
- (hum/add-invisible-overlay begin (point-max))
- )
- )
+ (hum/add-invisible-overlay begin (line-end-position (-
hum/lines-to-expand))))
+ (setq begin (line-beginning-position (+ 2 hum/lines-to-expand)))))
+ (hum/add-invisible-overlay begin (point-max))))
(defun hum/unhide-unmatched-lines ()
- (remove-overlays nil nil hum/invisible-overlay-name t)
- )
+ (remove-overlays nil nil hum/invisible-overlay-name t))
(provide 'mc-hide-unmatched-lines-mode)
(define-key mc/keymap (kbd "C-'") 'mc-hide-unmatched-lines-mode)
diff --git a/multiple-cursors-core.el b/multiple-cursors-core.el
index bc8a279..2e46183 100644
--- a/multiple-cursors-core.el
+++ b/multiple-cursors-core.el
@@ -459,6 +459,7 @@ They are temporarily disabled when multiple-cursors are
active.")
:group 'multiple-cursors)
(put 'mc/mode-line 'risky-local-variable t)
+;;;###autoload
(define-minor-mode multiple-cursors-mode
"Mode while multiple cursors are active."
nil mc/mode-line mc/keymap
diff --git a/rectangular-region-mode.el b/rectangular-region-mode.el
index 6bd54c7..8cbe1de 100644
--- a/rectangular-region-mode.el
+++ b/rectangular-region-mode.el
@@ -108,6 +108,7 @@ an exceedingly quick way of adding multiple cursors to
multiple lines."
(when rectangular-region-mode
(rrm/switch-to-multiple-cursors)))
+;;;###autoload
(define-minor-mode rectangular-region-mode
"A mode for creating a rectangular region to edit"
nil " rr" rectangular-region-mode-map
- [nongnu] elpa/multiple-cursors 45ed43e 265/434: Test edit-lines functionality in 'mc/mark-all-dwim', (continued)
- [nongnu] elpa/multiple-cursors 45ed43e 265/434: Test edit-lines functionality in 'mc/mark-all-dwim', ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors 68dfa46 271/434: Merge pull request #109 from mathrick/fix-mark-all-in-region-hang, ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors 65c0c0c 275/434: Merge pull request #104 from mathrick/mark-all-dwim, ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors d17c89e 276/434: Release 1.3.0, ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors ad79ad8 273/434: Mention only 'mc/mark-all-dwim' in README to prevent confusing redundancy, ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors 54e408f 279/434: Update README.md, ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors aed5d59 287/434: fix compilation warnings (#66), ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors 00aea4c 289/434: Show appropriate error messages on trying skipping/unmarking commands with no fake cursors, ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors b3fd49c 306/434: Revert "Change file load timing", ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors 38d6013 307/434: Merge pull request #156 from magnars/revert-152-master, ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors 49fe803 316/434: Merge pull request #163 from Silex/master,
ELPA Syncer <=
- [nongnu] elpa/multiple-cursors 7cf6374 326/434: Typo fixo., ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors 142fdd6 337/434: Use locate-user-emacs-file to find directory for .mc-lists.el, ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors 2588cce 338/434: Revert "Support unmarking with no region. Change mc/mark-lines to preserve point.", ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors 2e904a0 342/434: Add safety ceiling to cursor count at creation, ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors 9a5c9cd 005/434: Refactored setup of unsupported commands., ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors 6cac5f4 018/434: Even more white-listing., ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors f2da52a 085/434: Update readme with new testing info., ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors 8bc7916 094/434: Updated README., ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors 3e31cc6 101/434: Merge pull request #5 from milkypostman/master, ELPA Syncer, 2021/08/07
- [nongnu] elpa/multiple-cursors f2add1d 107/434: Suggest C-c C-< instead of the often used M-<, ELPA Syncer, 2021/08/07