Add support for C-s and C-r when phi-search is installed

This commit is contained in:
Magnar Sveen 2013-05-08 11:00:10 +02:00
parent 8b91e4788c
commit 374244b66e

View File

@ -402,7 +402,9 @@ multiple cursors editing.")
(define-key mc/keymap (kbd "C-g") 'mc/keyboard-quit) (define-key mc/keymap (kbd "C-g") 'mc/keyboard-quit)
(define-key mc/keymap (kbd "<return>") 'multiple-cursors-mode) (define-key mc/keymap (kbd "<return>") 'multiple-cursors-mode)
(when (fboundp 'phi-search) (when (fboundp 'phi-search)
(define-key mc/keymap (kbd "C-s") 'phi-search))) (define-key mc/keymap (kbd "C-s") 'phi-search))
(when (fboundp 'phi-search-backward)
(define-key mc/keymap (kbd "C-r") 'phi-search-backward)))
(defun mc--all-equal (entries) (defun mc--all-equal (entries)
"Are all these entries equal?" "Are all these entries equal?"