ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2025-10-13 13:33:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add misc punctuation to subword commands

Browse Source 
* avy.el (avy-goto-subword-0): Temporarily bind
  `subword-backward-regexp' to allow chars like ! or @ to count as
  subword parts.

Fixes #93
This commit is contained in:
Oleh Krehel 2015-08-21 13:18:26 +02:00
parent dbd2d2018d
commit 53d457cfe4
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
avy.el
View File

@ -857,6 +857,7 @@ The window scope is determined by `avy-all-windows' (ARG negates it)."
(avy--generic-jump regex arg avy-style)))) (avy--generic-jump regex arg avy-style))))
(declare-function subword-backward "subword") (declare-function subword-backward "subword")
(defvar subword-bacward-regexp)
;;;###autoload ;;;###autoload
(defun avy-goto-subword-0 (&optional arg predicate) (defun avy-goto-subword-0 (&optional arg predicate)
@ -870,6 +871,8 @@ should return true."
(require 'subword) (require 'subword)
(avy-with avy-goto-subword-0 (avy-with avy-goto-subword-0
(let ((case-fold-search nil) (let ((case-fold-search nil)
(subword-backward-regexp
"\\(\\(\\W\\|[[:lower:][:digit:]]\\)\\([!-/:@`~[:upper:]]+\\W*\\)\\|\\W\\w+\\)")
candidates) candidates)
(avy-dowindows arg (avy-dowindows arg
(let ((ws (window-start)) (let ((ws (window-start))