diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-11-25 21:26:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-11-25 21:26:50 +0000 |
| commit | 84841dd1b5d1349944ca0724b80a7436b5df1a55 (patch) | |
| tree | 81fe03d5fbd14b13bcdbbd7b7e66c4aacf13072e /lisp/thingatpt.el | |
| parent | ed956b8194c6ef76a847d66fdf88f3a75fe7132e (diff) | |
| download | emacs-84841dd1b5d1349944ca0724b80a7436b5df1a55.tar.gz | |
(thing-at-point-url-at-point): Don't use current
syntax table to determine what is whitespace.
Diffstat (limited to 'lisp/thingatpt.el')
| -rw-r--r-- | lisp/thingatpt.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 "<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:") |