Mark search result upon exiting isearch with S-return
This commit is contained in:
parent
800ed90b0f
commit
407f1b1f8e
9
init.el
9
init.el
@ -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)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user