diff options
| author | David Maus <dmaus@ictsoc.de> | 2010-09-22 20:04:53 +0200 |
|---|---|---|
| committer | David Maus <dmaus@ictsoc.de> | 2010-09-22 20:04:53 +0200 |
| commit | e14bb168cb6413c5b722aa77feefe10e5d482435 (patch) | |
| tree | 4e75f6d1d9de8276908c6be0dab93b6bd4302e28 | |
| parent | d821c54aab037226027abdfc7a5283dfc6927032 (diff) | |
| download | org-mode-e14bb168cb6413c5b722aa77feefe10e5d482435.tar.gz | |
Don't escape characters in link type
* org.el (org-make-link-string): Don't escape characters in link type.
Bug reported by Achim Gratz.
| -rw-r--r-- | lisp/org.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index 0e933e2..d488789 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -8451,7 +8451,11 @@ according to FMT (default from `org-email-link-description-format')." (when (and (not description) (not (equal link (org-link-escape link)))) (setq description (org-extract-attributes link))) - (concat "[[" (org-link-escape link) "]" + (setq link (if (string-match org-link-types-re link) + (concat (match-string 1 link) ":" + (org-link-escape (substring link (match-end 1)))) + (org-link-escape link))) + (concat "[[" link "]" (if description (concat "[" description "]") "") "]")) |