From e8120fbd55710fd98ba93ee32d8821f1e2ee58da Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Thu, 26 May 2016 15:56:16 +0200 Subject: [PATCH] ox-beamer: Do not require `cl' since `cl-lib' is used * lisp/ox-beamer.el (org-beamer--normalize-argument): (org-beamer-link): Use "cl" prefix. --- lisp/ox-beamer.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/ox-beamer.el b/lisp/ox-beamer.el index 65304f4c0..4505e2c13 100644 --- a/lisp/ox-beamer.el +++ b/lisp/ox-beamer.el @@ -29,7 +29,6 @@ ;;; Code: -(eval-when-compile (require 'cl)) (require 'cl-lib) (require 'ox-latex) @@ -203,7 +202,7 @@ TYPE is a symbol among the following: `defaction' Return ARGUMENT within both square and angular brackets. `option' Return ARGUMENT within square brackets." (if (not (string-match "\\S-" argument)) "" - (case type + (cl-case type (action (if (string-match "\\`<.*>\\'" argument) argument (format "<%s>" argument))) (defaction (cond @@ -740,7 +739,7 @@ used as a communication channel." (let ((destination (if (string= type "fuzzy") (org-export-resolve-fuzzy-link link info) (org-export-resolve-id-link link info)))) - (case (org-element-type destination) + (cl-case (org-element-type destination) (headline (let ((label (format "sec-%s"