ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ox-extra: Use cl-lib 

* contrib/lisp/ox-extra.el (org-latex-header-blocks-filter): Use "cl-"
prefix.
This commit is contained in:
Kyle Meyer 2017-05-03 23:27:25 -04:00
parent 500abcd7fb
commit fa1c6e92ac
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
contrib/lisp/ox-extra.el
View File

@ -56,7 +56,7 @@
;;; Code: ;;; Code:
(require 'ox) (require 'ox)
(eval-when-compile (require 'cl)) (require 'cl-lib)
(defun org-latex-header-blocks-filter (backend) (defun org-latex-header-blocks-filter (backend)
(when (org-export-derived-backend-p backend 'latex) (when (org-export-derived-backend-p backend 'latex)
@ -72,8 +72,10 @@
(org-element-property :post-affiliated block))))))) (org-element-property :post-affiliated block)))))))
(mapc (lambda (pos) (mapc (lambda (pos)
(goto-char (nth 2 pos)) (goto-char (nth 2 pos))
(destructuring-bind (cl-destructuring-bind
(beg end &rest ignore) (beg end &rest ignore)
;; FIXME: `org-edit-src-find-region-and-lang' was
;; removed in 9c06f8cce (2014-11-11).
(org-edit-src-find-region-and-lang) (org-edit-src-find-region-and-lang)
(let ((contents-lines (split-string (let ((contents-lines (split-string
(buffer-substring-no-properties beg end) (buffer-substring-no-properties beg end)