awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix(default): search region literally in +default/search-buffer

Browse Source
This commit is contained in:
Henrik Lissner
2021-09-14 19:51:09 +02:00
parent b0e084e416
commit 35f701a999
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
modules/config/default/autoload/search.el
View File

@ -26,7 +26,8 @@ If prefix ARG is set, prompt for a directory to search from."
"Conduct a text search on the current buffer.
If a selection is active, pre-fill the prompt with it."
(interactive)
(cond ((or (featurep! :completion helm) (featurep! :completion ivy))
(cond ((or (featurep! :completion helm)
(featurep! :completion ivy))
(call-interactively
(if (region-active-p)
#'swiper-isearch-thing-at-point
@ -36,7 +37,11 @@ If a selection is active, pre-fill the prompt with it."
(let ((start (region-beginning))
(end (region-end)))
(deactivate-mark)
(consult-line (buffer-substring-no-properties start end)))
(consult-line
(replace-regexp-in-string
" " "\\\\ "
(rxt-quote-pcre
(buffer-substring-no-properties start end)))))
(call-interactively #'consult-line)))))
;;;###autoload