search.el

;; Поиск вперед
(global-set-key (kbd "M-;") 'isearch-forward)

;; Поиск назад
(global-set-key (kbd "M-:") 'isearch-backward)

;; В режиме поиска добавляем несколько клавиш:
;; M-; -- повторить поиск вперед
;; M-: -- повторить поиск назад
;; M-v -- вставить скопированный текст
;; M-x -- вырезать выделенный текст
(defun isearch-keybindings (my-key-map)
  (define-key my-key-map (kbd "M-;") 'isearch-repeat-forward)
  (define-key my-key-map (kbd "M-:") 'isearch-repeat-backward)
  (define-key my-key-map (kbd "M-v") 'isearch-yank-pop)
  (define-key my-key-map (kbd "M-c") 'isearch-yank-kill)
  (define-key my-key-map (kbd "M-x") 'isearch-yank-kill))

;; Регистрируем в isearch-mode-map объявленные выше сочетания клавиш
(add-hook 'isearch-mode-hook  (lambda () (isearch-keybindings isearch-mode-map)))