# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 912029210 0
# Node ID 615a6a17e7d6b94f54da69c5d57273524f2a63ca
# Parent  63f667e05ff044a465892c001feb0408156c00fa
(thing-at-point-url-at-point): Don't use current
syntax table to determine what is whitespace.

diff -r 63f667e05ff0 -r 615a6a17e7d6 lisp/thingatpt.el
--- a/lisp/thingatpt.el	Wed Nov 25 01:50:25 1998 +0000
+++ b/lisp/thingatpt.el	Wed Nov 25 21:26:50 1998 +0000
@@ -259,7 +259,7 @@
 						    (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:")