[Emacs-diffs] trunk r115629: * url/url.el (url-retrieve-synchronously): Add optional arg SILENT and

[Leo Liu]

------------------------------------------------------------
revno: 115629
revision-id: address@hidden
parent: address@hidden
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Fri 2013-12-20 18:12:17 +0800
message:
  * url/url.el (url-retrieve-synchronously): Add optional arg SILENT and
  INHIBIT-COOKIES.
modified:
  lisp/url/ChangeLog             changelog-20091113204419-o5vbwnq5f7feedwu-3116
  lisp/url/url.el                url.el-20091113204419-o5vbwnq5f7feedwu-3005

=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog        2013-09-29 01:37:03 +0000
+++ b/lisp/url/ChangeLog        2013-12-20 10:12:17 +0000
@@ -1,3 +1,8 @@
+2013-12-20  Leo Liu  <address@hidden>
+
+       * url.el (url-retrieve-synchronously): Add optional arg SILENT and
+       INHIBIT-COOKIES.
+
 2013-09-29  Leo Liu  <address@hidden>
 
        * url-util.el (url-pretty-length): Make obsolete and all uses

=== modified file 'lisp/url/url.el'
--- a/lisp/url/url.el   2013-05-23 07:42:16 +0000
+++ b/lisp/url/url.el   2013-12-20 10:12:17 +0000
@@ -220,7 +220,7 @@
     buffer))
 
 ;;;###autoload
-(defun url-retrieve-synchronously (url)
+(defun url-retrieve-synchronously (url &optional silent inhibit-cookies)
   "Retrieve URL synchronously.
 Return the buffer containing the data, or nil if there are no data
 associated with it (the case for dired, info, or mailto URLs that need
@@ -233,7 +233,8 @@
          (url-retrieve url (lambda (&rest ignored)
                              (url-debug 'retrieval "Synchronous fetching done 
(%S)" (current-buffer))
                              (setq retrieval-done t
-                                   asynch-buffer (current-buffer)))))
+                                   asynch-buffer (current-buffer)))
+                       nil silent inhibit-cookies))
     (if (null asynch-buffer)
         ;; We do not need to do anything, it was a mailto or something
         ;; similar that takes processing completely outside of the URL