0
0
Fork 1
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:
David Maus 2010-12-15 19:58:37 +01:00
parent 7b58cccddd
commit 139cc1d4c2

View file

@ -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) "")