From 84841dd1b5d1349944ca0724b80a7436b5df1a55 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 25 Nov 1998 21:26:50 +0000 Subject: [PATCH] (thing-at-point-url-at-point): Don't use current syntax table to determine what is whitespace. --- lisp/thingatpt.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 0f3ff229f68..6da92490653 100644 --- 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 "" ;; 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:")