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