branch: master
commit dfe24f3d80ffa6093fea2a6600ca8179638394d7
Author: Kaushal Modi <[email protected]>
Commit: Kaushal Modi <[email protected]>
Add `avi-word-punc-regexp` defcustom
- Setting this to nil will disable jumping to punctuation chars during
`avi-goto-word-1`.
- Set this to a regexp of punctuation chars you want to match otherwise.
- "[!-/:-@[-`{-~]" will match all printable punctuation chars.
---
avy-jump.el | 9 ++++++++-
1 files changed, 8 insertions(+), 1 deletions(-)
diff --git a/avy-jump.el b/avy-jump.el
index c1c03ab..ed0554a 100644
--- a/avy-jump.el
+++ b/avy-jump.el
@@ -42,6 +42,12 @@
"When non-nil, a gray background will be added during the selection."
:type 'boolean)
+(defcustom avi-word-punc-regexp "[!-/:-@[-`{-~]"
+ "Regexp of punctuation characters that should be matched when calling
+`avi-goto-word-1' command. When nil, punctuation chars will not be matched.
+
+\"[!-/:-@[-`{-~]\" will match all printable punctuation chars.")
+
(defface avi-lead-face
'((t (:foreground "white" :background "#e52b50")))
"Face used for the leading chars.")
@@ -249,7 +255,8 @@ Read one char with which the word should start."
(interactive)
(let* ((str (string (read-char "char: ")))
(candidates (avi--regex-candidates
- (if (string-match "[,.+-*/=]" str)
+ (if (and avi-word-punc-regexp
+ (string-match avi-word-punc-regexp str))
str
(concat
"\\b"
