From 53d457cfe48956a1cbffb7f0f6d735af322fd093 Mon Sep 17 00:00:00 2001 From: Oleh Krehel Date: Fri, 21 Aug 2015 13:18:26 +0200 Subject: [PATCH] Add misc punctuation to subword commands * avy.el (avy-goto-subword-0): Temporarily bind `subword-backward-regexp' to allow chars like ! or @ to count as subword parts. Fixes #93 --- avy.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/avy.el b/avy.el index f2e9520..4c3bb79 100644 --- a/avy.el +++ b/avy.el @@ -857,6 +857,7 @@ The window scope is determined by `avy-all-windows' (ARG negates it)." (avy--generic-jump regex arg avy-style)))) (declare-function subword-backward "subword") +(defvar subword-bacward-regexp) ;;;###autoload (defun avy-goto-subword-0 (&optional arg predicate) @@ -870,6 +871,8 @@ should return true." (require 'subword) (avy-with avy-goto-subword-0 (let ((case-fold-search nil) + (subword-backward-regexp + "\\(\\(\\W\\|[[:lower:][:digit:]]\\)\\([!-/:@`~[:upper:]]+\\W*\\)\\|\\W\\w+\\)") candidates) (avy-dowindows arg (let ((ws (window-start))