mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(url-cookie-handle-set-cookie): Replace calls to obsolete

Browse Source 
`assoc-ignore-case' with calls to `assoc-string'.
This commit is contained in:
John Paul Wallington 2004-04-12 10:39:09 +00:00
parent efde809a83
commit 6e56e52681
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -11,6 +11,9 @@
* help.el (describe-mode): Doc fix. * help.el (describe-mode): Doc fix.
* url/url-cookie.el (url-cookie-handle-set-cookie): Replace calls
to obsolete `assoc-ignore-case' with calls to `assoc-string'.
2004-04-12 Stefan Monnier <monnier@iro.umontreal.ca> 2004-04-12 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/compile.el (compilation-mode-font-lock-keywords): Fix test * progmodes/compile.el (compilation-mode-font-lock-keywords): Fix test

10
lisp/url/url-cookie.el
View File

@ -332,14 +332,14 @@ telling Microsoft that.")
(setq url-cookies-changed-since-last-save t) (setq url-cookies-changed-since-last-save t)
(let* ((args (url-parse-args str t)) (let* ((args (url-parse-args str t))
(case-fold-search t) (case-fold-search t)
(secure (and (assoc-ignore-case "secure" args) t)) (secure (and (assoc-string "secure" args t) t))
(domain (or (cdr-safe (assoc-ignore-case "domain" args)) (domain (or (cdr-safe (assoc-string "domain" args t))
(url-host url-current-object))) (url-host url-current-object)))
(current-url (url-view-url t)) (current-url (url-view-url t))
(trusted url-cookie-trusted-urls) (trusted url-cookie-trusted-urls)
(untrusted url-cookie-untrusted-urls) (untrusted url-cookie-untrusted-urls)
(expires (cdr-safe (assoc-ignore-case "expires" args))) (expires (cdr-safe (assoc-string "expires" args t)))
(path (or (cdr-safe (assoc-ignore-case "path" args)) (path (or (cdr-safe (assoc-string "path" args t))
(file-name-directory (file-name-directory
(url-filename url-current-object)))) (url-filename url-current-object))))
(rest nil)) (rest nil))
@ -377,7 +377,7 @@ telling Microsoft that.")
(match-string 3 expires) " " ; year (match-string 3 expires) " " ; year
(match-string 4 expires) ".00 " ; hour:minutes:seconds (match-string 4 expires) ".00 " ; hour:minutes:seconds
(match-string 6 expires)))) ":" ; timezone (match-string 6 expires)))) ":" ; timezone
(while (consp trusted) (while (consp trusted)
(if (string-match (car trusted) current-url) (if (string-match (car trusted) current-url)
(setq trusted (- (match-end 0) (match-beginning 0))) (setq trusted (- (match-end 0) (match-beginning 0)))