From e8f4488f43b541365d8284a9d5067fd476a01b51 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Thu, 15 Oct 2015 10:33:27 +0200
Subject: [PATCH] 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>
---
 lisp/ox-beamer.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/ox-beamer.el b/lisp/ox-beamer.el
index eddbfffb6..73d8a76a7 100644
--- a/lisp/ox-beamer.el
+++ b/lisp/ox-beamer.el
@@ -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.