branch: elpa/org-contrib
commit 6ab347d4f35113fb48a0956dd52393443efac56f
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@posteo.net>
* lisp/ob-fomus.el: Switch to lexical binding, fix compiler warnings
(org-babel-execute:fomus): Remove unused let-binding.
(org-babel-prep-session:fomus): Mark function arguments as unused.
---
lisp/ob-fomus.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/lisp/ob-fomus.el b/lisp/ob-fomus.el
index 8d834f853d..ef43945df4 100644
--- a/lisp/ob-fomus.el
+++ b/lisp/ob-fomus.el
@@ -1,4 +1,4 @@
-;;; ob-fomus.el --- Org-babel functions for fomus evaluation
+;;; ob-fomus.el --- Org-babel functions for fomus evaluation -*-
lexical-binding: t; -*-
;; Copyright (C) 2011-2014, 2021 Torsten Anders
@@ -64,8 +64,7 @@
(defun org-babel-execute:fomus (body params)
"Execute a block of Fomus code with org-babel.
This function is called by `org-babel-execute-src-block'."
- (let* ((result-params (cdr (assq :result-params params)))
- (out-file (cdr (assq :file params)))
+ (let* ((out-file (cdr (assq :file params)))
(cmdline (cdr (assq :cmdline params)))
(cmd (or (cdr (assq :cmd params)) "fomus"))
(in-file (org-babel-temp-file "fomus-" ".fms")))
@@ -83,7 +82,7 @@ This function is called by `org-babel-execute-src-block'."
" -o " (org-babel-process-file-name out-file)) "")
nil)) ;; signal that output has already been written to file
-(defun org-babel-prep-session:fomus (session params)
+(defun org-babel-prep-session:fomus (_session _params)
"Return an error because Fomus does not support sessions."
(error "Fomus does not support sessions"))
