From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 10 Oct 2017 18:57:37 +0000 (-0400)
Subject: * lisp/url/url-cookie.el: Fix warning and miscompilation
X-Git-Tag: emacs-27.0.90~6253
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7dc037e39e6bbfa8964d0040e8141dbcf70d726d;p=emacs.git

* lisp/url/url-cookie.el: Fix warning and miscompilation

(url-cookie-parse-file-netscape): Remove unused var `match', fix
undefined `incf' misuse.
---

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)
 		))