ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2025-10-13 13:03:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix compilation warnings (#66)

Browse Source 
Fixes #66.
This commit is contained in:
Adam Spiers 2013-12-15 12:31:31 +00:00
parent 5fead7d83e
commit aed5d592cf
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
multiple-cursors-core.el
View File

@ -29,6 +29,8 @@
(require 'rect) (require 'rect)
(defvar mc--read-char)
(defface mc/cursor-face (defface mc/cursor-face
'((t (:inverse-video t))) '((t (:inverse-video t)))
"The face used for fake cursors" "The face used for fake cursors"
@ -230,6 +232,8 @@ cursor with updated info."
;; Intercept some reading commands so you won't have to ;; Intercept some reading commands so you won't have to
;; answer them for every single cursor ;; answer them for every single cursor
(defvar mc--read-char nil)
(defvar multiple-cursors-mode nil)
(defadvice read-char (around mc-support activate) (defadvice read-char (around mc-support activate)
(if (not multiple-cursors-mode) (if (not multiple-cursors-mode)
ad-do-it ad-do-it
@ -237,6 +241,7 @@ cursor with updated info."
(setq mc--read-char ad-do-it)) (setq mc--read-char ad-do-it))
(setq ad-return-value mc--read-char))) (setq ad-return-value mc--read-char)))
(defvar mc--read-quoted-char nil)
(defadvice read-quoted-char (around mc-support activate) (defadvice read-quoted-char (around mc-support activate)
(if (not multiple-cursors-mode) (if (not multiple-cursors-mode)
ad-do-it ad-do-it

2
rectangular-region-mode.el
View File

@ -38,6 +38,8 @@
(define-key rectangular-region-mode-map (kbd "C-g") 'rrm/keyboard-quit) (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) (define-key rectangular-region-mode-map (kbd "<return>") 'rrm/switch-to-multiple-cursors)
(defvar rectangular-region-mode nil)
(defun rrm/keyboard-quit () (defun rrm/keyboard-quit ()
"Exit rectangular-region-mode." "Exit rectangular-region-mode."
(interactive) (interactive)