diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-10-10 14:57:37 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-10-10 14:57:37 -0400 |
commit | 7dc037e39e6bbfa8964d0040e8141dbcf70d726d (patch) | |
tree | bb1be41c46d1c21bc55920bdd0c467e3ca9b6217 /lisp/url/url-cookie.el | |
parent | 349c1f93021e49c63f076b602d3d228324105fd6 (diff) | |
download | emacs-7dc037e39e6bbfa8964d0040e8141dbcf70d726d.tar.gz |
* lisp/url/url-cookie.el: Fix warning and miscompilation
(url-cookie-parse-file-netscape): Remove unused var `match', fix
undefined `incf' misuse.
Diffstat (limited to 'lisp/url/url-cookie.el')
-rw-r--r-- | lisp/url/url-cookie.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el index b0dc40475b3..0a3103264d9 100644 --- a/lisp/url/url-cookie.el +++ b/lisp/url/url-cookie.el @@ -94,7 +94,7 @@ i.e. 1970-1-1) are loaded as expiring one year from now instead." ;; (message "skipping empty line")) ((= (length fields) 7) (let ((dom (nth 0 fields)) - (match (nth 1 fields)) + ;; (match (nth 1 fields)) (path (nth 2 fields)) (secure (string= (nth 3 fields) "TRUE")) ;; session cookies (expire time = 0) are supposed @@ -112,7 +112,7 @@ i.e. 1970-1-1) are loaded as expiring one year from now instead." s))))) (key (nth 5 fields)) (val (nth 6 fields))) - (incf n) + (cl-incf n) ;;(message "adding <%s>=<%s> exp=<%s> dom=<%s> path=<%s> sec=%S" key val expires dom path secure) (url-cookie-store key val expires dom path secure) )) |