mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

shr: strip leading whitespace when expanding URLs

Browse Source 
* lisp/net/shr.el (shr-expand-url): Strip leading whitespace from URL.
This commit is contained in:
Andreas Schwab 2015-04-24 17:18:55 +02:00
parent 422f15d9d6
commit 2f3011a466
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/net/shr.el
View File

@ -709,6 +709,9 @@ size, and full-buffer size."
shr-base))
(when (zerop (length url))
(setq url nil))
;; Strip leading whitespace
(and url (string-match "\\`\\s-+" url)
(setq url (substring url (match-end 0))))
(cond ((or (not url)
(not base)
(string-match "\\`[a-z]*:" url))