]> code.delx.au - gnu-emacs-elpa/commitdiff
avy-jump.el (avi--overlay-pre): Handle plain numbers
authorOleh Krehel <ohwoeowho@gmail.com>
Mon, 4 May 2015 16:03:15 +0000 (18:03 +0200)
committerOleh Krehel <ohwoeowho@gmail.com>
Mon, 4 May 2015 16:03:15 +0000 (18:03 +0200)
* avy-jump.el (avi--overlay-pre):
(avi--overlay-post): Handle the case of LEAF being a number.

avy-jump.el

index e39931d1cabbd82db9f2485e0feddd5c7626b184..60f4f2543e46f20c6e1530710d7967d017f9905c 100644 (file)
@@ -118,10 +118,15 @@ LEAF is ((BEG . END) . WND)."
   (avi--overlay
    (propertize (apply #'string (reverse path))
                'face 'avi-lead-face)
-   (if (consp (car leaf))
-       (caar leaf)
-     (car leaf))
-   (cdr leaf)))
+   (cond ((numberp leaf)
+          leaf)
+         ((consp (car leaf))
+          (caar leaf))
+         (t
+          (car leaf)))
+   (if (consp leaf)
+       (cdr leaf)
+     (selected-window))))
 
 (defun avi--overlay-at (path leaf)
   "Create an overlay with STR at LEAF.
@@ -152,10 +157,15 @@ LEAF is ((BEG . END) . WND)."
   (avi--overlay
    (propertize (apply #'string (reverse path))
                'face 'avi-lead-face)
-   (if (consp (car leaf))
-       (cdar leaf)
-     (car leaf))
-   (cdr leaf)))
+   (cond ((numberp leaf)
+          leaf)
+         ((consp (car leaf))
+          (cdar leaf))
+         (t
+          (car leaf)))
+   (if (consp leaf)
+       (cdr leaf)
+     (selected-window))))
 
 ;;* Commands
 ;;;###autoload