branch: externals/do-at-point
commit 20b5f6e23f05391b267df2a8965f01f2706564c6
Author: Philip Kaludercic <[email protected]>
Commit: Philip Kaludercic <[email protected]>
Prioritise symbols over words
By reordering the list, we 'do-at-point' will be greedy and first try
to select a symbol, and then a word, which is arguably more useful in
'prog-mode' buffers.
---
do-at-point.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/do-at-point.el b/do-at-point.el
index d1d2538388..6e69b2a24d 100644
--- a/do-at-point.el
+++ b/do-at-point.el
@@ -162,14 +162,14 @@ of this variable.")
(?e "eww" ,#'eww-browse-url))
(number
(?* "Calc" ,(lambda () (calc-embedded '(t)))))
- (word
- (?$ "Spell check" ,(lambda () (ispell-word)))
- (?d "Dictionary" ,#'dictionary-search)
- (?t "Transpose" ,(lambda () (transpose-words (or current-prefix-arg 1)))))
(symbol
(?. "Xref" ,#'xref-find-definitions)
(?o "Occur" ,(lambda (str)
(occur (concat "\\_<\\(" (regexp-quote str) "\\)\\_>")))))
+ (word
+ (?$ "Spell check" ,(lambda () (ispell-word)))
+ (?d "Dictionary" ,#'dictionary-search)
+ (?t "Transpose" ,(lambda () (transpose-words (or current-prefix-arg 1)))))
(string)
(sexp
(?t "Transpose" ,(lambda () (transpose-sexps (or current-prefix-arg 1)))))
