Merge from origin/emacs-25
0377fe2
; Spelling fixesf253695
Update docs for `customize-mode'4395aaa
Fix documentation of 'assoc-string' and 'compare-strings'ab0ebb9
; Only load .elc file in tests.a98aa02
Error on multibyte characters in HTTP requestea512a7
* lisp/gnus/mm-decode.el (mm-convert-shr-links): Mask keys th...8297331
; Revert "Ensure undo-boundary after insert-file-contents."dc5e65b
Unset GIT_DIR when calling Git commands6cdd8f7
Ensure undo-boundary after insert-file-contents.4793f5f
Clarify documentation of 'line-spacing' and 'line-height'5f37572
Fix removal of variables from process-environmente5e886d
* admin/authors.el (authors-ignored-files, authors-valid-file...db0777b
* admin/authors.el (authors-aliases, authors-fixed-case): Add... # Conflicts: # doc/lispref/modes.texi # lisp/gnus/mm-decode.el
This commit is contained in:
commit
fdcf46d33e
14 changed files with 72 additions and 47 deletions
|
@ -307,19 +307,7 @@ The string is based on `url-privacy-level' and `url-user-agent'."
|
|||
;; allows us to elide null lines directly, at the cost of making
|
||||
;; the layout less clear.
|
||||
(setq request
|
||||
;; We used to concat directly, but if one of the strings happens
|
||||
;; to being multibyte (even if it only contains pure ASCII) then
|
||||
;; every string gets converted with `string-MAKE-multibyte' which
|
||||
;; turns the 127-255 codes into things like latin-1 accented chars
|
||||
;; (it would work right if it used `string-TO-multibyte' instead).
|
||||
;; So to avoid the problem we force every string to be unibyte.
|
||||
(mapconcat
|
||||
;; FIXME: Instead of `string-AS-unibyte' we'd want
|
||||
;; `string-to-unibyte', so as to properly signal an error if one
|
||||
;; of the strings contains a multibyte char.
|
||||
'string-as-unibyte
|
||||
(delq nil
|
||||
(list
|
||||
(concat
|
||||
;; The request
|
||||
(or url-http-method "GET") " "
|
||||
(if using-proxy (url-recreate-url url-http-target-url) real-fname)
|
||||
|
@ -398,7 +386,10 @@ The string is based on `url-privacy-level' and `url-user-agent'."
|
|||
"\r\n"
|
||||
;; Any data
|
||||
url-http-data))
|
||||
""))
|
||||
;; Bug#23750
|
||||
(unless (= (string-bytes request)
|
||||
(length request))
|
||||
(error "Multibyte text in HTTP request: %s" request))
|
||||
(url-http-debug "Request is: \n%s" request)
|
||||
request))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue