mirror of
https://github.com/magnars/multiple-cursors.el.git
synced 2026-02-05 14:32:24 +00:00
Fix byte compilation warnings
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:
@@ -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))
|
||||
|
||||
Reference in New Issue
Block a user