Now uses `ffap-file-at-point' only for 'read-file-name-internal.
"Return a string that corresponds to the current thing at point."
(or
(thing-at-point 'url)
"Return a string that corresponds to the current thing at point."
(or
(thing-at-point 'url)
+ (and (eq (ivy-state-collection ivy-last) 'read-file-name-internal)
+ (ffap-file-at-point))
(let (s)
(cond ((stringp (setq s (thing-at-point 'symbol)))
(if (string-match "\\`[`']?\\(.*?\\)'?\\'" s)
(let (s)
(cond ((stringp (setq s (thing-at-point 'symbol)))
(if (string-match "\\`[`']?\\(.*?\\)'?\\'" s)