|
@@ -9053,7 +9053,7 @@ If optional argument MERGE is set, merge TABLE into
|
|
|
|
|
|
(defun org-link-unescape (str)
|
|
|
"Unhex hexified Unicode strings as returned from the JavaScript function
|
|
|
-encodeURIComponent. E.g. `%C3%B6' is the german Umlaut `ö'."
|
|
|
+encodeURIComponent. E.g. `%C3%B6' is the german o-Umlaut."
|
|
|
(unless (and (null str) (string= "" str))
|
|
|
(let ((pos 0) (case-fold-search t) unhexed)
|
|
|
(while (setq pos (string-match "\\(%[0-9a-f][0-9a-f]\\)+" str pos))
|
|
@@ -9063,9 +9063,9 @@ encodeURIComponent. E.g. `%C3%B6' is the german Umlaut `ö'."
|
|
|
str)
|
|
|
|
|
|
(defun org-link-unescape-compound (hex)
|
|
|
- "Unhexify Unicode hex-chars. E.g. `%C3%B6' is the German Umlaut `ö'.
|
|
|
+ "Unhexify Unicode hex-chars. E.g. `%C3%B6' is the German o-Umlaut.
|
|
|
Note: this function also decodes single byte encodings like
|
|
|
-`%E1' (\"á\") if not followed by another `%[A-F0-9]{2}' group."
|
|
|
+`%E1' (a-acute) if not followed by another `%[A-F0-9]{2}' group."
|
|
|
(save-match-data
|
|
|
(let* ((bytes (cdr (split-string hex "%")))
|
|
|
(ret "")
|