Mark search result upon exiting isearch with S-return

This commit is contained in:
Gergely Polonkai 2017-03-22 23:23:38 +01:00
parent 800ed90b0f
commit 407f1b1f8e

View File

@ -1123,6 +1123,7 @@
("M-k" . gpolonkai/undo-buffer-kill) ("M-k" . gpolonkai/undo-buffer-kill)
:map isearch-mode-map :map isearch-mode-map
("<C-return>" . isearch-exit-other-end) ("<C-return>" . isearch-exit-other-end)
("<S-return>" . isearch-exit-mark-match)
:map gpolonkai/pers-map :map gpolonkai/pers-map
("m" . hidden-mode-line-mode) ("m" . hidden-mode-line-mode)
("C-i e" . "gergely@polonkai.eu") ("C-i e" . "gergely@polonkai.eu")
@ -1140,6 +1141,14 @@
(isearch-exit) (isearch-exit)
(goto-char isearch-other-end)) (goto-char isearch-other-end))
;; Kudos goes to http://emacs.stackexchange.com/a/31321/507
(defun isearch-exit-mark-match ()
"Exit isearch and mark the current match."
(interactive)
(isearch-exit)
(push-mark isearch-other-end)
(activate-mark))
;; Set up some global minor modes ;; Set up some global minor modes
(global-prettify-symbols-mode t) (global-prettify-symbols-mode t)