/[emacs]/emacs/lisp/url/url-util.el
ViewVC logotype

Diff of /emacs/lisp/url/url-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by ttn, Sat Aug 6 15:55:38 2005 UTC revision 1.11 by cyd, Thu Sep 1 16:38:39 2005 UTC
# Line 270  Will not do anything if `url-show-status Line 270  Will not do anything if `url-show-status
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
# Line 278  Will not do anything if `url-show-status Line 278  Will not do anything if `url-show-status
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))

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26