[elpa] master 297f48a 074/167: ivy.el: "M-n" should prefer url at point to symbol at point

[Oleh Krehel]

branch: master
commit 297f48a00c4ae53f2baee8dceb1a213e1e60eda4
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>

    ivy.el: "M-n" should prefer url at point to symbol at point
    
    * ivy.el (ivy--reset-state): Update.
---
 ivy.el |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/ivy.el b/ivy.el
index 162cd2e..af9f389 100644
--- a/ivy.el
+++ b/ivy.el
@@ -1135,7 +1135,10 @@ This is useful for recursive `ivy-read'."
       (setq ivy--old-cands nil)
       (setq ivy--all-candidates coll))
     (setq ivy-exit nil)
-    (setq ivy--default (or (thing-at-point 'symbol) ""))
+    (setq ivy--default (or
+                        (thing-at-point 'url)
+                        (thing-at-point 'symbol)
+                        ""))
     (setq ivy--prompt
           (cond ((string-match "%.*d" prompt)
                  prompt)