branch: elpa/multiple-cursors
commit 75ece6884ba78ba64fa58036e1cfca4a63937fa5
Merge: 5fead7d8 aed5d59
Author: Magnar Sveen <[email protected]>
Commit: Magnar Sveen <[email protected]>
Merge pull request #118 from aspiers/fix-compile-warnings
fix compilation warnings
---
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)
