mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

ox-beamer: Fix last commit 

* lisp/ox-beamer.el (org-beamer-link): Fix commit
  5c28ea6aad.
This commit is contained in:
Nicolas Goaziou 2016-12-13 09:06:48 +01:00
parent b09d161873
commit f747ee43bd
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/ox-beamer.el
View File

@ -721,13 +721,14 @@ channel."
CONTENTS is the description part of the link. INFO is a plist
used as a communication channel."
(or (org-export-custom-protocol-maybe link contents 'beamer)
;; Fall-back to LaTeX export. However, if link is becomes
;; a "\hyperlink" macro, try to sneak in Beamer overlay
;; specification, if any.
(let ((latex-link (org-export-with-backend 'latex link contents info))
(overlay (org-beamer--element-has-overlay-p link)))
(if (and overlay (string-match "\\`\\\\hyperlink" latex-link))
(replace-match (concat "\\&" overlay) nil nil latex-link)
;; Fall-back to LaTeX export. However, prefer "\hyperlink" over
;; "\hyperref" since the former handles overlay specifications.
(let ((latex-link (org-export-with-backend 'latex link contents info)))
(if (string-match "\\`\\\\hyperref\\[\\(.*?\\)\\]" latex-link)
(replace-match
(format "\\\\hyperlink%s{\\1}"
(or (org-beamer--element-has-overlay-p link) ""))
nil nil latex-link)
latex-link))))