From: Richard M. Stallman Date: Wed, 25 Nov 1998 21:26:50 +0000 (+0000) Subject: (thing-at-point-url-at-point): Don't use current X-Git-Tag: emacs-20.4~1185 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=84841dd1b5d1349944ca0724b80a7436b5df1a55;p=emacs.git (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 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:")