forked from mirrors/org-mode
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.
This commit is contained in:
parent
6ac7afba6d
commit
e8120fbd55
|
@ -29,7 +29,6 @@
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(eval-when-compile (require 'cl))
|
|
||||||
(require 'cl-lib)
|
(require 'cl-lib)
|
||||||
(require 'ox-latex)
|
(require 'ox-latex)
|
||||||
|
|
||||||
|
@ -203,7 +202,7 @@ TYPE is a symbol among the following:
|
||||||
`defaction' Return ARGUMENT within both square and angular brackets.
|
`defaction' Return ARGUMENT within both square and angular brackets.
|
||||||
`option' Return ARGUMENT within square brackets."
|
`option' Return ARGUMENT within square brackets."
|
||||||
(if (not (string-match "\\S-" argument)) ""
|
(if (not (string-match "\\S-" argument)) ""
|
||||||
(case type
|
(cl-case type
|
||||||
(action (if (string-match "\\`<.*>\\'" argument) argument
|
(action (if (string-match "\\`<.*>\\'" argument) argument
|
||||||
(format "<%s>" argument)))
|
(format "<%s>" argument)))
|
||||||
(defaction (cond
|
(defaction (cond
|
||||||
|
@ -740,7 +739,7 @@ used as a communication channel."
|
||||||
(let ((destination (if (string= type "fuzzy")
|
(let ((destination (if (string= type "fuzzy")
|
||||||
(org-export-resolve-fuzzy-link link info)
|
(org-export-resolve-fuzzy-link link info)
|
||||||
(org-export-resolve-id-link link info))))
|
(org-export-resolve-id-link link info))))
|
||||||
(case (org-element-type destination)
|
(cl-case (org-element-type destination)
|
||||||
(headline
|
(headline
|
||||||
(let ((label
|
(let ((label
|
||||||
(format "sec-%s"
|
(format "sec-%s"
|
||||||
|
|
Loading…
Reference in New Issue