branch: elpa/multiple-cursors
commit aed5d592cfd41462aa25ce2e2147964ab0dedb47
Author: Adam Spiers <[email protected]>
Commit: Adam Spiers <[email protected]>
fix compilation warnings (#66)
Fixes #66.
---
multiple-cursors-core.el | 5 +++++
rectangular-region-mode.el | 2 ++
2 files changed, 7 insertions(+)
diff --git a/multiple-cursors-core.el b/multiple-cursors-core.el
index f0ab01c..f65ea4f 100644
--- a/multiple-cursors-core.el
+++ b/multiple-cursors-core.el
@@ -29,6 +29,8 @@
(require 'rect)
+(defvar mc--read-char)
+
(defface mc/cursor-face
'((t (:inverse-video t)))
"The face used for fake cursors"
@@ -230,6 +232,8 @@ cursor with updated info."
;; Intercept some reading commands so you won't have to
;; answer them for every single cursor
+(defvar mc--read-char nil)
+(defvar multiple-cursors-mode nil)
(defadvice read-char (around mc-support activate)
(if (not multiple-cursors-mode)
ad-do-it
@@ -237,6 +241,7 @@ cursor with updated info."
(setq mc--read-char ad-do-it))
(setq ad-return-value mc--read-char)))
+(defvar mc--read-quoted-char nil)
(defadvice read-quoted-char (around mc-support activate)
(if (not multiple-cursors-mode)
ad-do-it
diff --git a/rectangular-region-mode.el b/rectangular-region-mode.el
index f01a39f..6bd54c7 100644
--- a/rectangular-region-mode.el
+++ b/rectangular-region-mode.el
@@ -38,6 +38,8 @@
(define-key rectangular-region-mode-map (kbd "C-g") 'rrm/keyboard-quit)
(define-key rectangular-region-mode-map (kbd "<return>")
'rrm/switch-to-multiple-cursors)
+(defvar rectangular-region-mode nil)
+
(defun rrm/keyboard-quit ()
"Exit rectangular-region-mode."
(interactive)
