mirror of
https://github.com/magnars/multiple-cursors.el.git
synced 2025-10-13 21:03:05 +00:00
8703b19872
* README.md: Update readme to include mark-next-like-this symbol * features/step-definitions/multiple-cursors-steps.el: Add phrase for mark-next-like-this-symbol * features/support/env.el: Add keyboard shortcut for mark-next-like-this-symbol and fix shortcut for mark-next-like-this-word * mc-mark-more.el: Add mc/mark-next-like-this-symbol function * multiple-cursors-core.el: Add mc/mark-next-like-this-symbol to functions to run only once * multiple-cursors.el: Add to readme section.
48 lines
1.8 KiB
EmacsLisp
48 lines
1.8 KiB
EmacsLisp
(let* ((current-directory (file-name-directory load-file-name))
|
|
(features-directory (expand-file-name ".." current-directory))
|
|
(project-directory (expand-file-name ".." features-directory)))
|
|
(setq multiple-cursors-root-path project-directory)
|
|
(setq multiple-cursors-util-path (expand-file-name "util" project-directory)))
|
|
|
|
(add-to-list 'load-path multiple-cursors-root-path)
|
|
(add-to-list 'load-path multiple-cursors-util-path)
|
|
(add-to-list 'load-path (expand-file-name "espuds" multiple-cursors-util-path))
|
|
(add-to-list 'load-path (expand-file-name "vendor" multiple-cursors-util-path))
|
|
|
|
(require 'multiple-cursors)
|
|
(require 'espuds)
|
|
(require 'ert)
|
|
(require 'wrap-region)
|
|
|
|
(defun mc/save-lists ()) ;; redefine to do nothing when running tests
|
|
|
|
(Before
|
|
(cua-mode 0)
|
|
(multiple-cursors-mode 0)
|
|
(rectangular-region-mode 0)
|
|
(global-set-key (kbd "C->") 'mc/mark-next-like-this)
|
|
(global-set-key (kbd "C-S-c C->") 'mc/mark-next-like-this-word)
|
|
(global-set-key (kbd "C-S-c M->") 'mc/mark-next-like-this-symbol)
|
|
(global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
|
|
(global-set-key (kbd "M-!") 'mc/mark-all-like-this)
|
|
(global-set-key (kbd "M-$") 'mc/mark-all-like-this-dwim)
|
|
(global-set-key (kbd "C-$") 'mc/mark-all-dwim)
|
|
(global-set-key (kbd "M-#") 'mc/mark-all-in-region)
|
|
(global-set-key (kbd "H-0") 'mc/insert-numbers)
|
|
(global-set-key (kbd "H-1") 'mc/reverse-regions)
|
|
(global-set-key (kbd "H-2") 'mc/sort-regions)
|
|
(global-set-key (kbd "C-S-c C-S-c") 'mc/edit-lines)
|
|
(global-set-key (kbd "H-SPC") 'set-rectangular-region-anchor)
|
|
(switch-to-buffer
|
|
(get-buffer-create "*multiple-cursors*"))
|
|
(erase-buffer)
|
|
(transient-mark-mode 1)
|
|
(cua-mode 0)
|
|
(delete-selection-mode 0)
|
|
(subword-mode 0)
|
|
(wrap-region-mode 0)
|
|
(setq set-mark-default-inactive nil)
|
|
(deactivate-mark))
|
|
|
|
(After)
|