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

ox-beamer: Obey to `org-latex-prefer-user-labels' 

* lisp/ox-beamer.el (org-beamer--get-label): Obey to
  `org-latex-prefer-user-labels'.

Suggested-by: Fabrice Popineau <fabrice.popineau@gmail.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/101894>
This commit is contained in:
Nicolas Goaziou 2015-10-15 10:33:27 +02:00
parent 89c0c2e30b
commit e8f4488f43
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ox-beamer.el
View File

@ -337,7 +337,10 @@ function assumes HEADLINE will be treated as a frame."
(if (and (stringp opt)
(string-match "\\(?:^\\|,\\)label=\\(.*?\\)\\(?:$\\|,\\)" opt))
(match-string 1 opt)
(format "{sec:%s}" (org-export-get-reference headline info)))))
(or (and (plist-get info :latex-prefer-user-labels)
(org-element-property :CUSTOM_ID headline))
(format "{sec:%s}"
(org-export-get-reference headline info))))))
(defun org-beamer--frame-level (headline info)
"Return frame level in subtree containing HEADLINE.