ob-exp: Do not require `cl' at compile time

* lisp/ob-exp.el (org-babel-exp-process-buffer): Use `pcase' instead of
  `case'.
This commit is contained in:
Nicolas Goaziou 2016-06-18 23:24:22 +02:00
parent e1139e1895
commit 72d4c3db2d
1 changed files with 4 additions and 6 deletions

View File

@ -24,8 +24,6 @@
;;; Code:
(require 'ob-core)
(eval-when-compile
(require 'cl))
(declare-function org-babel-lob-get-info "ob-lob" (&optional datum))
(declare-function org-element-at-point "org-element" ())
@ -168,8 +166,8 @@ this template."
(goto-char (org-element-property :end element))
(skip-chars-backward " \r\t\n")
(point)))))
(case type
(inline-src-block
(pcase type
(`inline-src-block
(let* ((info
(org-babel-get-src-block-info nil element))
(params (nth 2 info)))
@ -197,7 +195,7 @@ this template."
;; insert value.
(delete-region begin end)
(insert replacement)))))
((babel-call inline-babel-call)
((or `babel-call `inline-babel-call)
(let ((results (org-babel-exp-do-export
(org-babel-lob-get-info element)
'lob))
@ -225,7 +223,7 @@ this template."
(goto-char begin)
(delete-region begin end)
(insert rep))))
(src-block
(`src-block
(let* ((match-start (copy-marker (match-beginning 0)))
(ind (org-get-indentation))
(lang