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

avy.el (avy-goto-char-in-line): New command

Browse Source 
Fixes #49
This commit is contained in:
Oleh Krehel 2015-05-25 10:12:17 +02:00
parent aa2eb24f53
commit 791c16c6ac
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
avy.el
View File

@ -567,6 +567,25 @@ The window scope is determined by `avy-all-windows' (ARG negates it)."
arg arg
avy-style))) avy-style)))
;;;###autoload
(defun avy-goto-char-in-line (char &optional arg)
"Jump to the currently visible CHAR in the current line.
The window scope is determined by `avy-all-windows' (ARG negates it)."
(interactive (list (read-char "char: ")
current-prefix-arg))
(let ((avy-all-windows
(if arg
(not avy-all-windows)
avy-all-windows)))
(avy--with-avy-keys avy-goto-char
(avy--goto
(avy--process
(save-restriction
(narrow-to-region (line-beginning-position)
(line-end-position))
(avy--regex-candidates (string char)))
(avy--style-fn avy-style))))))
;;;###autoload ;;;###autoload
(defun avy-goto-char-2 (char1 char2 &optional arg) (defun avy-goto-char-2 (char1 char2 &optional arg)
"Jump to the currently visible CHAR1 followed by CHAR2. "Jump to the currently visible CHAR1 followed by CHAR2.