[nongnu] elpa/multiple-cursors 75ece68 288/434: Merge pull request #118 from aspiers/fix-compile-warnings

[ELPA Syncer]

branch: elpa/multiple-cursors
commit 75ece6884ba78ba64fa58036e1cfca4a63937fa5
Merge: 5fead7d8 aed5d59
Author: Magnar Sveen <magnars@gmail.com>
Commit: Magnar Sveen <magnars@gmail.com>

    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)