Mercurial > emacs
diff lisp/url/url-util.el @ 65312:915d671fef52
*** empty log message ***
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 01 Sep 2005 16:38:39 +0000 |
| parents | 875dcc490074 |
| children | e8a3fb527b77 532e0a9335a9 |
line wrap: on
line diff
--- a/lisp/url/url-util.el Thu Sep 01 14:30:30 2005 +0000 +++ b/lisp/url/url-util.el Thu Sep 01 16:38:39 2005 +0000 @@ -270,7 +270,7 @@ (t (file-name-directory file)))) ;;;###autoload -(defun url-parse-query-string (query &optional downcase) +(defun url-parse-query-string (query &optional downcase allow-newlines) (let (retval pairs cur key val) (setq pairs (split-string query "&")) (while pairs @@ -278,8 +278,10 @@ pairs (cdr pairs)) (if (not (string-match "=" cur)) nil ; Grace - (setq key (url-unhex-string (substring cur 0 (match-beginning 0))) - val (url-unhex-string (substring cur (match-end 0) nil))) + (setq key (url-unhex-string (substring cur 0 (match-beginning 0)) + allow-newlines)) + (setq val (url-unhex-string (substring cur (match-end 0) nil) + allow-newlines)) (if downcase (setq key (downcase key))) (setq cur (assoc key retval))