mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-23 23:48:58 +00:00
Always percent escape the percent sign
* lisp/org.el (org-link-escape, org-link-escape-chars-browser) (org-link-escape-chars): Always percent escape the percent sign.
This commit is contained in:
parent
7b58cccddd
commit
139cc1d4c2
|
@ -8603,14 +8603,14 @@ according to FMT (default from `org-email-link-description-format')."
|
|||
"]"))
|
||||
|
||||
(defconst org-link-escape-chars
|
||||
'(?\ ?\[ ?\] ?\; ?\= ?\+ ?\%)
|
||||
'(?\ ?\[ ?\] ?\; ?\= ?\+)
|
||||
"List of characters that should be escaped in link.
|
||||
This is the list that is used for internal purposes.")
|
||||
|
||||
(defvar org-url-encoding-use-url-hexify nil)
|
||||
|
||||
(defconst org-link-escape-chars-browser
|
||||
'(?\ ?\%)
|
||||
'(?\ )
|
||||
"List of escapes for characters that are problematic in links.
|
||||
This is the list that is used before handing over to the browser.")
|
||||
|
||||
|
@ -8633,7 +8633,7 @@ If optional argument MERGE is set, merge TABLE into
|
|||
(mapconcat
|
||||
(lambda (char)
|
||||
(if (or (member char table)
|
||||
(< char 32) (> char 126))
|
||||
(< char 32) (= char 37) (> char 126))
|
||||
(mapconcat (lambda (sequence-element)
|
||||
(format "%%%.2X" sequence-element))
|
||||
(encode-coding-char char 'utf-8) "")
|
||||
|
|
Loading…
Reference in a new issue