mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-30 08:08:26 +00:00
Code

ox-beamer: Do not require cl' since cl-lib' is used

Browse Source 
* lisp/ox-beamer.el (org-beamer--normalize-argument):
(org-beamer-link): Use "cl" prefix.
This commit is contained in:
Nicolas Goaziou 2016-05-26 15:56:16 +02:00
parent 6ac7afba6d
commit e8120fbd55
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ox-beamer.el
View File

@ -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"