From f91562d9ea36d7f76f222e457c8fd1b0570e7e3d Mon Sep 17 00:00:00 2001 From: Leo Butler Date: Thu, 9 Feb 2023 11:02:04 -0600 Subject: [PATCH] lisp/ob-octave.el: remove org-babel-prep-session:{octave,matlab} * lisp/ob-octave.el (org-babel-prep-session:matlab, org-babel-prep-session:octave): Remove unused functions. --- lisp/ob-octave.el | 15 --------------- 1 file changed, 15 deletions(-) diff --git a/lisp/ob-octave.el b/lisp/ob-octave.el index 9bf16b984..24537ad57 100644 --- a/lisp/ob-octave.el +++ b/lisp/ob-octave.el @@ -104,10 +104,6 @@ end") (org-babel-pick-name (cdr (assq :rowname-names params)) (cdr (assq :rownames params))))))) -(defun org-babel-prep-session:matlab (session params) - "Prepare SESSION according to PARAMS." - (org-babel-prep-session:octave session params 'matlab)) - (defun org-babel-variable-assignments:octave (params) "Return list of octave statements assigning the block's variables." (mapcar @@ -133,17 +129,6 @@ specifying a variable of the same value." (t (format "%s" var))))) -(defun org-babel-prep-session:octave (session params &optional matlabp) - "Prepare SESSION according to the header arguments specified in PARAMS." - (let* ((session (org-babel-octave-initiate-session session params matlabp)) - (var-lines (org-babel-variable-assignments:octave params))) - (org-babel-comint-in-buffer session - (mapc (lambda (var) - (end-of-line 1) (insert var) (comint-send-input nil t) - (org-babel-comint-wait-for-output session)) - var-lines)) - session)) - (defun org-babel-matlab-initiate-session (&optional session params) "Create a matlab inferior process buffer. If there is not a current inferior-process-buffer in SESSION then -- 2.39.1