[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org d96982f375 2/2: * lisp/ob-forth.el: Document all th
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org d96982f375 2/2: * lisp/ob-forth.el: Document all the function arguments. |
Date: |
Tue, 12 Sep 2023 06:58:31 -0400 (EDT) |
branch: externals/org
commit d96982f375138653922b1b0c1a3aa8d4b493e4b8
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
* lisp/ob-forth.el: Document all the function arguments.
(org-babel-execute:forth): Document the arguments.
(org-babel-forth-session-execute): Add docstring.
---
lisp/ob-forth.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/ob-forth.el b/lisp/ob-forth.el
index bd9ec04a4c..9615ccd851 100644
--- a/lisp/ob-forth.el
+++ b/lisp/ob-forth.el
@@ -45,7 +45,7 @@
"Default header arguments for forth code blocks.")
(defun org-babel-execute:forth (body params)
- "Execute a block of Forth code with org-babel.
+ "Execute Forth BODY according to PARAMS.
This function is called by `org-babel-execute-src-block'."
(if (string= "none" (cdr (assq :session params)))
(error "Non-session evaluation not supported for Forth code blocks")
@@ -55,6 +55,7 @@ This function is called by `org-babel-execute-src-block'."
(car (last all-results))))))
(defun org-babel-forth-session-execute (body params)
+ "Execute Forth BODY in session defined via PARAMS."
(org-require-package 'forth-mode)
(let ((proc (forth-proc))
(rx " \\(\n:\\|compiled\n\\|ok\n\\)")