aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/url
diff options
context:
space:
mode:
authorPaul Eggert2011-11-14 23:55:13 -0800
committerPaul Eggert2011-11-14 23:55:13 -0800
commitda6062e6ea440f6cd68db251390fcb91450103ba (patch)
tree8643e5ab1b5045cfb22e254412632f671658645f /lisp/url
parent672b871d9838335ac12faaf62793a811f1269a66 (diff)
downloademacs-da6062e6ea440f6cd68db251390fcb91450103ba.tar.gz
emacs-da6062e6ea440f6cd68db251390fcb91450103ba.zip
Spelling fixes.
Diffstat (limited to 'lisp/url')
-rw-r--r--lisp/url/url-dav.el2
-rw-r--r--lisp/url/url-http.el4
-rw-r--r--lisp/url/url.el4
3 files changed, 5 insertions, 5 deletions
diff --git a/lisp/url/url-dav.el b/lisp/url/url-dav.el
index 3d1f6afcb0e..95ab2623fff 100644
--- a/lisp/url/url-dav.el
+++ b/lisp/url/url-dav.el
@@ -909,7 +909,7 @@ Returns nil if URL contains no name starting with FILE."
909 ;; Only one file and FILE matches it exactly... 909 ;; Only one file and FILE matches it exactly...
910 t) 910 t)
911 (t 911 (t
912 ;; Need to figure out the longest string that they have in commmon 912 ;; Need to figure out the longest string that they have in common
913 (setq matches (sort matches (lambda (a b) (> (length a) (length b))))) 913 (setq matches (sort matches (lambda (a b) (> (length a) (length b)))))
914 (let ((n (length file)) 914 (let ((n (length file))
915 (searching t) 915 (searching t)
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index e9da4a1010c..bb7744be434 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -702,7 +702,7 @@ should be shown to the user."
702 (not-acceptable ; 406 702 (not-acceptable ; 406
703 ;; The resource identified by the request is only capable of 703 ;; The resource identified by the request is only capable of
704 ;; generating response entities which have content 704 ;; generating response entities which have content
705 ;; characteristics nota cceptable according to the accept 705 ;; characteristics not acceptable according to the accept
706 ;; headers sent in the request. 706 ;; headers sent in the request.
707 (setq success t)) 707 (setq success t))
708 (proxy-authentication-required ; 407 708 (proxy-authentication-required ; 407
@@ -1092,7 +1092,7 @@ the end of the document."
1092 (url-http-activate-callback))) 1092 (url-http-activate-callback)))
1093 ((string= "CONNECT" url-http-method) 1093 ((string= "CONNECT" url-http-method)
1094 ;; A CONNECT request is finished, but we cannot stick this 1094 ;; A CONNECT request is finished, but we cannot stick this
1095 ;; back on the free connectin list 1095 ;; back on the free connection list
1096 (url-http-debug "CONNECT request must have headers only.") 1096 (url-http-debug "CONNECT request must have headers only.")
1097 (when (url-http-parse-headers) 1097 (when (url-http-parse-headers)
1098 (url-http-activate-callback))) 1098 (url-http-activate-callback)))
diff --git a/lisp/url/url.el b/lisp/url/url.el
index 7136b6023ce..c95b61c43fb 100644
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -252,7 +252,7 @@ no further processing). URL is either a string or a parsed URL."
252 ;; interrupt it before it got a chance to handle process input. 252 ;; interrupt it before it got a chance to handle process input.
253 ;; `sleep-for' was tried but it lead to other forms of 253 ;; `sleep-for' was tried but it lead to other forms of
254 ;; hanging. --Stef 254 ;; hanging. --Stef
255 (unless (or (with-local-quit 255 (unless (or (with-local-quit
256 (accept-process-output proc)) 256 (accept-process-output proc))
257 (null proc)) 257 (null proc))
258 ;; accept-process-output returned nil, maybe because the process 258 ;; accept-process-output returned nil, maybe because the process
@@ -290,7 +290,7 @@ no further processing). URL is either a string or a parsed URL."
290 ;; These requires could advantageously be moved to url-mm-callback or 290 ;; These requires could advantageously be moved to url-mm-callback or
291 ;; turned into autoloads, but I suspect that it would introduce some bugs 291 ;; turned into autoloads, but I suspect that it would introduce some bugs
292 ;; because loading those files from a process sentinel or filter may 292 ;; because loading those files from a process sentinel or filter may
293 ;; result in some undesirable carner cases. 293 ;; result in some undesirable corner cases.
294 (require 'mm-decode) 294 (require 'mm-decode)
295 (require 'mm-view) 295 (require 'mm-view)
296 (url-retrieve url 'url-mm-callback nil)) 296 (url-retrieve url 'url-mm-callback nil))