ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2025-10-13 13:03:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix byte compilation warnings

Browse Source 
Fix the byte compilation warnings:

In mc--read-char:
multiple-cursors-core.el:347:2: Warning: reference to free variable ‘multiple-cursors-mode’

In mc--read-quoted-char:
multiple-cursors-core.el:348:2: Warning: reference to free variable ‘multiple-cursors-mode’

In mc--register-read-with-preview:
multiple-cursors-core.el:349:2: Warning: reference to free variable ‘multiple-cursors-mode’

In mc--read-char-from-minibuffer:
multiple-cursors-core.el:350:2: Warning: reference to free variable ‘multiple-cursors-mode’

In toplevel form:
mc-mark-more.el:95:2: Warning: defvar `mc/enclose-search-term' docstring has wrong usage of unescaped single quotes (use \= or different quoting)

In mc/mark-more-like-this-extended:
mc-mark-more.el:501:2: Warning: docstring has wrong usage of unescaped single quotes (use \= or different quoting)
mc-mark-more.el:522:22: Warning: reference to free variable ‘mc/mark-more-like-this-extended-keymap’

In end of data:
mc-mark-more.el:724:27: Warning: the function ‘sgml-skip-tag-forward’ is not known to be defined.
mc-mark-more.el:673:8: Warning: the function ‘sgml-get-context’ is not known to be defined.

In end of data:
mc-hide-unmatched-lines-mode.el:110:1: Warning: the function ‘sgml-skip-tag-forward’ is not known to be defined.
mc-hide-unmatched-lines-mode.el:110:1: Warning: the function ‘sgml-get-context’ is not known to be defined.

In end of data:
multiple-cursors-core.el:567:43: Warning: the function ‘sgml-skip-tag-forward’ is not known to be defined.
multiple-cursors-core.el:535:25: Warning: the function ‘sgml-get-context’ is not known to be defined.

In end of data:
mc-cycle-cursors.el:124:1: Warning: the function ‘sgml-skip-tag-forward’ is not known to be defined.
mc-cycle-cursors.el:124:1: Warning: the function ‘sgml-get-context’ is not known to be defined.
This commit is contained in:
Laurence Warne 2024-02-11 20:16:20 +00:00
parent 234806c832
commit 25b0dca82e
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
mc-mark-more.el
View File

@ -29,6 +29,9 @@
(require 'multiple-cursors-core) (require 'multiple-cursors-core)
(require 'thingatpt) (require 'thingatpt)
(require 'sgml-mode)
(defvar mc/mark-more-like-this-extended-keymap (make-sparse-keymap))
(defun mc/cursor-end (cursor) (defun mc/cursor-end (cursor)
(if (overlay-get cursor 'mark-active) (if (overlay-get cursor 'mark-active)
@ -96,8 +99,8 @@ to (point)), or nil."
"How should mc/mark-more-* search for more matches? "How should mc/mark-more-* search for more matches?
Match everything: nil Match everything: nil
Match only whole words: 'words Match only whole words: \\='words
Match only whole symbols: 'symbols Match only whole symbols: \\='symbols
Use like case-fold-search, don't recommend setting it globally.") Use like case-fold-search, don't recommend setting it globally.")
@ -502,15 +505,15 @@ remove the keymap depends on user input and KEEP-PRED:
"Like mark-more-like-this, but then lets you adjust with arrow keys. "Like mark-more-like-this, but then lets you adjust with arrow keys.
The adjustments work like this: The adjustments work like this:
<up> Mark previous like this and set direction to 'up <up> Mark previous like this and set direction to \\='up
<down> Mark next like this and set direction to 'down <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 <left> Skip past the cursor furthest up
<right> Remove the cursor furthest up <right> Remove the cursor furthest up
If direction is 'down: If direction is \\='down:
<left> Remove the cursor furthest down <left> Remove the cursor furthest down
<right> Skip past the cursor furthest down <right> Skip past the cursor furthest down
@ -558,8 +561,6 @@ are we working on the next or previous cursors?")
(mc/skip-to-next-like-this)) (mc/skip-to-next-like-this))
(mc/mmlte--message)) (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 "<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 "<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 "<left>") 'mc/mmlte--left)

2
multiple-cursors-core.el
View File

@ -334,7 +334,7 @@ values."
(let ((mc-name (intern (concat "mc--" (symbol-name fn-name))))) (let ((mc-name (intern (concat "mc--" (symbol-name fn-name)))))
`(progn `(progn
(defun ,mc-name (orig-fun &rest args) (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) (apply orig-fun args)
(let* ((cache-key (cons ,(symbol-name fn-name) (,args-cache-key-fn args))) (let* ((cache-key (cons ,(symbol-name fn-name) (,args-cache-key-fn args)))
(cached-value (assoc cache-key mc--input-function-cache)) (cached-value (assoc cache-key mc--input-function-cache))