mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-13 00:09:53 +00:00
Code Releases Activity

Always percent escape the percent sign

Browse source 
* 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
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/org.el
View file

@ -8603,14 +8603,14 @@ according to FMT (default from `org-email-link-description-format')."
"]")) "]"))
(defconst org-link-escape-chars (defconst org-link-escape-chars
'(?\ ?\[ ?\] ?\; ?\= ?\+ ?\%) '(?\ ?\[ ?\] ?\; ?\= ?\+)
"List of characters that should be escaped in link. "List of characters that should be escaped in link.
This is the list that is used for internal purposes.") This is the list that is used for internal purposes.")
(defvar org-url-encoding-use-url-hexify nil) (defvar org-url-encoding-use-url-hexify nil)
(defconst org-link-escape-chars-browser (defconst org-link-escape-chars-browser
'(?\ ?\%) '(?\ )
"List of escapes for characters that are problematic in links. "List of escapes for characters that are problematic in links.
This is the list that is used before handing over to the browser.") 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 (mapconcat
(lambda (char) (lambda (char)
(if (or (member char table) (if (or (member char table)
(< char 32) (> char 126)) (< char 32) (= char 37) (> char 126))
(mapconcat (lambda (sequence-element) (mapconcat (lambda (sequence-element)
(format "%%%.2X" sequence-element)) (format "%%%.2X" sequence-element))
(encode-coding-char char 'utf-8) "") (encode-coding-char char 'utf-8) "")