diff options
| author | Stefan Monnier | 2017-10-10 14:57:37 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2017-10-10 14:57:37 -0400 |
| commit | 7dc037e39e6bbfa8964d0040e8141dbcf70d726d (patch) | |
| tree | bb1be41c46d1c21bc55920bdd0c467e3ca9b6217 | |
| parent | 349c1f93021e49c63f076b602d3d228324105fd6 (diff) | |
| download | emacs-7dc037e39e6bbfa8964d0040e8141dbcf70d726d.tar.gz emacs-7dc037e39e6bbfa8964d0040e8141dbcf70d726d.zip | |
* lisp/url/url-cookie.el: Fix warning and miscompilation
(url-cookie-parse-file-netscape): Remove unused var `match', fix
undefined `incf' misuse.
| -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." | |||
| 94 | ;; (message "skipping empty line")) | 94 | ;; (message "skipping empty line")) |
| 95 | ((= (length fields) 7) | 95 | ((= (length fields) 7) |
| 96 | (let ((dom (nth 0 fields)) | 96 | (let ((dom (nth 0 fields)) |
| 97 | (match (nth 1 fields)) | 97 | ;; (match (nth 1 fields)) |
| 98 | (path (nth 2 fields)) | 98 | (path (nth 2 fields)) |
| 99 | (secure (string= (nth 3 fields) "TRUE")) | 99 | (secure (string= (nth 3 fields) "TRUE")) |
| 100 | ;; session cookies (expire time = 0) are supposed | 100 | ;; 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." | |||
| 112 | s))))) | 112 | s))))) |
| 113 | (key (nth 5 fields)) | 113 | (key (nth 5 fields)) |
| 114 | (val (nth 6 fields))) | 114 | (val (nth 6 fields))) |
| 115 | (incf n) | 115 | (cl-incf n) |
| 116 | ;;(message "adding <%s>=<%s> exp=<%s> dom=<%s> path=<%s> sec=%S" key val expires dom path secure) | 116 | ;;(message "adding <%s>=<%s> exp=<%s> dom=<%s> path=<%s> sec=%S" key val expires dom path secure) |
| 117 | (url-cookie-store key val expires dom path secure) | 117 | (url-cookie-store key val expires dom path secure) |
| 118 | )) | 118 | )) |