[elpa] master ba950a0 015/110: avy.el (avy-goto-char-2-above): Add

[Oleh Krehel]

branch: master
commit ba950a0ad551d8241cbc176a39e33e22be074675
Author: justbur <address@hidden>
Commit: justbur <address@hidden>

    avy.el (avy-goto-char-2-above): Add
    
    avy.el (avy-goto-char-2-below): Add
    
    These are versions of avy-goto-char-2 that are restricted to matches
    before or after the point in the current window.
    
    Fixes #148
---
 avy.el | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/avy.el b/avy.el
index 94e899c..c2f96db 100644
--- a/avy.el
+++ b/avy.el
@@ -976,6 +976,38 @@ The window scope is determined by `avy-all-windows' (ARG 
negates it)."
      avy-style)))
 
 ;;;###autoload
+(defun avy-goto-char-2-above (char1 char2 &optional arg)
+  "Jump to the currently visible CHAR1 followed by CHAR2.
+This is a scoped version of `avy-goto-char-2', where the scope is
+the visible part of the current buffer up to point."
+  (interactive (list (read-char "char 1: " t)
+                     (read-char "char 2: " t)
+                     current-prefix-arg))
+  (avy-with avy-goto-char-2
+    (avy--generic-jump
+     (regexp-quote (string char1 char2))
+     arg
+     avy-style
+     (window-start (selected-window))
+     (point))))
+
+;;;###autoload
+(defun avy-goto-char-2-below (char1 char2 &optional arg)
+  "Jump to the currently visible CHAR1 followed by CHAR2.
+This is a scoped version of `avy-goto-char-2', where the scope is
+the visible part of the current buffer following point."
+  (interactive (list (read-char "char 1: " t)
+                     (read-char "char 2: " t)
+                     current-prefix-arg))
+  (avy-with avy-goto-char-2
+    (avy--generic-jump
+     (regexp-quote (string char1 char2))
+     arg
+     avy-style
+     (point)
+     (window-end (selected-window) t))))
+
+;;;###autoload
 (defun avy-isearch ()
   "Jump to one of the current isearch candidates."
   (interactive)