Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Fix byte compilation warnings #383

Merged
merged 2 commits into from Feb 23, 2024
Merged

Fix byte compilation warnings #383

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
25b0dca
Fix byte compilation warnings
LaurenceWarne Feb 11, 2024
ba7852f
Move mc/mark-more-like-this-extended-keymap defvar location
LaurenceWarne Feb 13, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
27 changes: 14 additions & 13 deletions mc-mark-more.el
View file
Open in desktop
Expand Up @@ -29,6 +29,7 @@

(require 'multiple-cursors-core)
(require 'thingatpt)
(require 'sgml-mode)

(defun mc/cursor-end (cursor)
(if (overlay-get cursor 'mark-active)
Expand Down Expand Up @@ -96,8 +97,8 @@ to (point)), or nil."
"How should mc/mark-more-* search for more matches?

Match everything: nil
Match only whole words: 'words
Match only whole symbols: 'symbols
Match only whole words: \\='words
Match only whole symbols: \\='symbols

Use like case-fold-search, don't recommend setting it globally.")

Expand Down Expand Up @@ -497,20 +498,27 @@ remove the keymap depends on user input and KEEP-PRED:

(push alist emulation-mode-map-alists))))

(defvar mc/mark-more-like-this-extended-keymap (make-sparse-keymap))

(define-key mc/mark-more-like-this-extended-keymap (kbd "<up>") 'mc/mmlte--up)
(define-key mc/mark-more-like-this-extended-keymap (kbd "<down>") 'mc/mmlte--down)
(define-key mc/mark-more-like-this-extended-keymap (kbd "<left>") 'mc/mmlte--left)
(define-key mc/mark-more-like-this-extended-keymap (kbd "<right>") 'mc/mmlte--right)

;;;###autoload
(defun mc/mark-more-like-this-extended ()
"Like mark-more-like-this, but then lets you adjust with arrow keys.
The adjustments work like this:

<up> Mark previous like this and set direction to 'up
<down> Mark next like this and set direction to 'down
<up> Mark previous like this and set direction to \\='up
<down> Mark next like this and set direction to \\='down

If direction is 'up:
If direction is \\='up:

<left> Skip past the cursor furthest up
<right> Remove the cursor furthest up

If direction is 'down:
If direction is \\='down:

<left> Remove the cursor furthest down
<right> Skip past the cursor furthest down
Expand Down Expand Up @@ -558,13 +566,6 @@ are we working on the next or previous cursors?")
(mc/skip-to-next-like-this))
(mc/mmlte--message))

(defvar mc/mark-more-like-this-extended-keymap (make-sparse-keymap))

(define-key mc/mark-more-like-this-extended-keymap (kbd "<up>") 'mc/mmlte--up)
(define-key mc/mark-more-like-this-extended-keymap (kbd "<down>") 'mc/mmlte--down)
(define-key mc/mark-more-like-this-extended-keymap (kbd "<left>") 'mc/mmlte--left)
(define-key mc/mark-more-like-this-extended-keymap (kbd "<right>") 'mc/mmlte--right)

(defvar mc--restrict-mark-all-to-symbols nil)

;;;###autoload
Expand Down
2 changes: 1 addition & 1 deletion multiple-cursors-core.el
View file
Open in desktop
Expand Up @@ -334,7 +334,7 @@ values."
(let ((mc-name (intern (concat "mc--" (symbol-name fn-name)))))
`(progn
(defun ,mc-name (orig-fun &rest args)
(if (not multiple-cursors-mode)
(if (not (bound-and-true-p multiple-cursors-mode))
(apply orig-fun args)
(let* ((cache-key (cons ,(symbol-name fn-name) (,args-cache-key-fn args)))
(cached-value (assoc cache-key mc--input-function-cache))
Expand Down