emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r103800: lisp/url/url-cookie.el: Use


From: Juanma Barranquero
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r103800: lisp/url/url-cookie.el: Use `dolist' rather than `mapcar'.
Date: Sat, 02 Apr 2011 01:24:21 +0200
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 103800
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Sat 2011-04-02 01:24:21 +0200
message:
  lisp/url/url-cookie.el: Use `dolist' rather than `mapcar'.
modified:
  lisp/url/ChangeLog
  lisp/url/url-cookie.el
=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog        2011-03-12 19:19:47 +0000
+++ b/lisp/url/ChangeLog        2011-04-01 23:24:21 +0000
@@ -1,3 +1,8 @@
+2011-04-01  Juanma Barranquero  <address@hidden>
+
+       * url-cookie.el (url-cookie-handle-set-cookie):
+       Use `dolist' rather than `mapcar'.
+
 2011-02-12  Teodor Zlatanov  <address@hidden>
 
        * url-parse.el (url-bit-for-url, url-user-for-url)

=== modified file 'lisp/url/url-cookie.el'
--- a/lisp/url/url-cookie.el    2011-01-25 04:08:28 +0000
+++ b/lisp/url/url-cookie.el    2011-04-01 23:24:21 +0000
@@ -331,9 +331,8 @@
           (not trusted)
           (save-window-excursion
             (with-output-to-temp-buffer "*Cookie Warning*"
-              (mapcar
-               (lambda (x)
-                 (princ (format "%s - %s" (car x) (cdr x)))) rest))
+              (dolist (x rest)
+                 (princ (format "%s - %s" (car x) (cdr x)))))
             (prog1
                 (not (funcall url-confirmation-func
                               (format "Allow %s to set these cookies? "


reply via email to

[Prev in Thread] Current Thread [Next in Thread]