On 2010-03-04, Carsten Dominik <carsten.domi...@gmail.com> wrote:
> Hi Sebastian,
>
> could you please try if the following patch does solve this issue?
>
> Thanks.
>
> - Carsten
>
> diff --git a/lisp/org.el b/lisp/org.el
> index 85b74fa..59d2acf 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -7950,12 +7950,14 @@ This is the list that is used before handing  
> over to the browser.")
>         (url-unhex-string text)
>       (setq table (or table org-link-escape-chars))
>       (when text
> -      (let ((re (mapconcat (lambda (x) (regexp-quote (cdr x)))
> +      (let ((case-fold-search t)
> +         (re (mapconcat (lambda (x) (regexp-quote (downcase (cdr x))))
>                          table "\\|")))
>       (while (string-match re text)
>         (setq text
>               (replace-match
> -              (char-to-string (car (rassoc (match-string 0 text) table)))
> +              (char-to-string (car (rassoc (upcase (match-string 0 text))
> +                                           table)))
>                t t text)))
>       text))))

yes, it does just fine; thank you very much for you time !

Cheers,

--Seb



_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Reply via email to