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

avy.el: Add -above and -below versions of avy-goto-whitespace-end

Browse Source 
Re #278
This commit is contained in:
Oleh Krehel 2019-08-28 11:50:22 +02:00
parent 27d1af3fa6
commit 034de4c0e9
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
avy.el
View File

@ -1396,6 +1396,22 @@ When ARG is non-nil, do the opposite of `avy-all-windows'."
(avy-with avy-goto-word-0 (avy-with avy-goto-word-0
(avy-goto-word-0 arg (point) (window-end (selected-window) t)))) (avy-goto-word-0 arg (point) (window-end (selected-window) t))))
(defun avy-goto-whitespace-end-above (arg)
"Jump to the end of a whitespace sequence between point and window end.
The window scope is determined by `avy-all-windows'.
When ARG is non-nil, do the opposite of `avy-all-windows'."
(interactive "P")
(avy-with avy-goto-whitespace-end
(avy-goto-whitespace-end arg (window-start) (point))))
(defun avy-goto-whitespace-end-below (arg)
"Jump to the end of a whitespace sequence between window start and point.
The window scope is determined by `avy-all-windows'.
When ARG is non-nil, do the opposite of `avy-all-windows'."
(interactive "P")
(avy-with avy-goto-whitespace-end
(avy-goto-whitespace-end arg (point) (window-end (selected-window) t))))
;;;###autoload ;;;###autoload
(defun avy-goto-word-1 (char &optional arg beg end symbol) (defun avy-goto-word-1 (char &optional arg beg end symbol)
"Jump to the currently visible CHAR at a word start. "Jump to the currently visible CHAR at a word start.