diff options
| author | Richard M. Stallman | 1998-11-25 21:26:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-11-25 21:26:50 +0000 |
| commit | 84841dd1b5d1349944ca0724b80a7436b5df1a55 (patch) | |
| tree | 81fe03d5fbd14b13bcdbbd7b7e66c4aacf13072e | |
| parent | ed956b8194c6ef76a847d66fdf88f3a75fe7132e (diff) | |
| download | emacs-84841dd1b5d1349944ca0724b80a7436b5df1a55.tar.gz emacs-84841dd1b5d1349944ca0724b80a7436b5df1a55.zip | |
(thing-at-point-url-at-point): Don't use current
syntax table to determine what is whitespace.
| -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." | |||
| 259 | (match-end 0))) | 259 | (match-end 0))) |
| 260 | (and strip (setq url (substring url 5 -1))) ; Drop "<URL:" & ">" | 260 | (and strip (setq url (substring url 5 -1))) ; Drop "<URL:" & ">" |
| 261 | ;; strip whitespace | 261 | ;; strip whitespace |
| 262 | (while (string-match "\\s +\\|\n+" url) | 262 | (while (string-match "[ \t\n\r]+" url) |
| 263 | (setq url (replace-match "" t t url))) | 263 | (setq url (replace-match "" t t url))) |
| 264 | (and short (setq url (concat (cond ((string-match "@" url) | 264 | (and short (setq url (concat (cond ((string-match "@" url) |
| 265 | "mailto:") | 265 | "mailto:") |