awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-08 15:23:35 -05:00
Code Issues Packages Projects Releases Wiki Activity

Generalize thing-at-point & region functions

Browse Source
This commit is contained in:
Henrik Lissner
2020-01-03 02:39:47 -05:00
parent d426349f21
commit 27bf3c85b5
7 changed files with 80 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
core/autoload/help.el
View File

@@ -621,10 +621,7 @@ config blocks in your private config."
(defun doom--help-search-prompt (prompt)
(let ((query
(if (use-region-p)
(buffer-substring-no-properties (region-beginning) (region-end))
(or (thing-at-point 'symbol t) ""))))
(let ((query (doom-thing-at-point-or-region)))
(if (featurep 'counsel)
query
(read-string prompt query 'git-grep query))))