Mercurial > emacs
changeset 23764:615a6a17e7d6
(thing-at-point-url-at-point): Don't use current
syntax table to determine what is whitespace.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 25 Nov 1998 21:26:50 +0000 |
| parents | 63f667e05ff0 |
| children | 1944b3595afd |
| files | lisp/thingatpt.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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:")