Very useful on Windows with it's weird path names.
"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)
(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)