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

syntax table to determine what is whitespace.

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 0f3ff229f6803240b4b926012376ece261f76c87..6da9249065392b13b6686d04aab8683d0925f94c 100644 (file)
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -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)
                                               "mailto:")