From aed5d592cfd41462aa25ce2e2147964ab0dedb47 Mon Sep 17 00:00:00 2001 From: Adam Spiers Date: Sun, 15 Dec 2013 12:31:31 +0000 Subject: [PATCH] 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 "") 'rrm/switch-to-multiple-cursors) +(defvar rectangular-region-mode nil) + (defun rrm/keyboard-quit () "Exit rectangular-region-mode." (interactive)