270 |
(t (file-name-directory file)))) |
(t (file-name-directory file)))) |
271 |
|
|
272 |
;;;###autoload |
;;;###autoload |
273 |
(defun url-parse-query-string (query &optional downcase) |
(defun url-parse-query-string (query &optional downcase allow-newlines) |
274 |
(let (retval pairs cur key val) |
(let (retval pairs cur key val) |
275 |
(setq pairs (split-string query "&")) |
(setq pairs (split-string query "&")) |
276 |
(while pairs |
(while pairs |
278 |
pairs (cdr pairs)) |
pairs (cdr pairs)) |
279 |
(if (not (string-match "=" cur)) |
(if (not (string-match "=" cur)) |
280 |
nil ; Grace |
nil ; Grace |
281 |
(setq key (url-unhex-string (substring cur 0 (match-beginning 0))) |
(setq key (url-unhex-string (substring cur 0 (match-beginning 0)) |
282 |
val (url-unhex-string (substring cur (match-end 0) nil))) |
allow-newlines)) |
283 |
|
(setq val (url-unhex-string (substring cur (match-end 0) nil) |
284 |
|
allow-newlines)) |
285 |
(if downcase |
(if downcase |
286 |
(setq key (downcase key))) |
(setq key (downcase key))) |
287 |
(setq cur (assoc key retval)) |
(setq cur (assoc key retval)) |