emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix 'url-parse-query-string'

Browse source 
* lisp/url/url-util.el (url-parse-query-string): Fix use of
'match-beginning' and 'match-end'.  (Bug#81430)
This commit is contained in:
Eli Zaretskii 2026-07-19 09:33:26 +03:00
parent 94ee683d63
commit ade36467bf
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/url/url-util.el
View file

@ -230,10 +230,12 @@ Will not do anything if `url-show-status' is nil."
(setq cur (concat cur "=")))
(when (string-match "=" cur)
(setq key (url-unhex-string (substring cur 0 (match-beginning 0))
allow-newlines))
(setq val (url-unhex-string (substring cur (match-end 0) nil)
allow-newlines))
(let ((beg (match-beginning 0))
(end (match-end 0)))
(setq key (url-unhex-string (substring cur 0 beg)
allow-newlines))
(setq val (url-unhex-string (substring cur end nil)
allow-newlines)))
(if downcase
(setq key (downcase key)))
(setq cur (assoc key retval))