branch: externals/avy commit 034de4c0e900717ebcb6e19a973cf66beea54420 Author: Oleh Krehel <ohwoeo...@gmail.com> Commit: Oleh Krehel <ohwoeo...@gmail.com>
avy.el: Add -above and -below versions of avy-goto-whitespace-end Re #278 --- avy.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/avy.el b/avy.el index b83fb29b1e..c9c261785f 100644 --- a/avy.el +++ b/avy.el @@ -1396,6 +1396,22 @@ When ARG is non-nil, do the opposite of `avy-all-windows'." (avy-with avy-goto-word-0 (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 (defun avy-goto-word-1 (char &optional arg beg end symbol) "Jump to the currently visible CHAR at a word start.