Commit 84841dd1 authored by Richard M. Stallman's avatar Richard M. Stallman

(thing-at-point-url-at-point): Don't use current

syntax table to determine what is whitespace.
parent ed956b81
......@@ -259,7 +259,7 @@ starts with \"ftp\" and not \"ftp:/\", or \"http://\" by default."
(match-end 0)))
(and strip (setq url (substring url 5 -1))) ; Drop "<URL:" & ">"
;; strip whitespace
(while (string-match "\\s +\\|\n+" url)
(while (string-match "[ \t\n\r]+" url)
(setq url (replace-match "" t t url)))
(and short (setq url (concat (cond ((string-match "@" url)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment