From 5b3508698bae853173984974d67b3431e7b621bc Mon Sep 17 00:00:00 2001 From: Aaron Ecay Date: Mon, 1 Apr 2013 01:42:16 -0400 Subject: [PATCH] Clean up org-babel-expand-body: functions for awk and picolisp * lisp/ob-awk.el (org-babel-expand-body:awk), lisp/ob-picolisp.el (org-babel-expand-body:picolisp): remove optional arg from these functions The optional argument is apparently never passed by org-babel code. Maybe this is a relic of an earlier calling convention? --- lisp/ob-awk.el | 2 +- lisp/ob-picolisp.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/ob-awk.el b/lisp/ob-awk.el index f717feceb..373d5fd98 100644 --- a/lisp/ob-awk.el +++ b/lisp/ob-awk.el @@ -44,7 +44,7 @@ (defvar org-babel-awk-command "awk" "Name of the awk executable command.") -(defun org-babel-expand-body:awk (body params &optional processed-params) +(defun org-babel-expand-body:awk (body params) "Expand BODY according to PARAMS, return the expanded body." (dolist (pair (mapcar #'cdr (org-babel-get-header params :var))) (setf body (replace-regexp-in-string diff --git a/lisp/ob-picolisp.el b/lisp/ob-picolisp.el index e785366c4..1d1791926 100644 --- a/lisp/ob-picolisp.el +++ b/lisp/ob-picolisp.el @@ -78,7 +78,7 @@ :version "24.1" :type 'string) -(defun org-babel-expand-body:picolisp (body params &optional processed-params) +(defun org-babel-expand-body:picolisp (body params) "Expand BODY according to PARAMS, return the expanded body." (let ((vars (mapcar #'cdr (org-babel-get-header params :var))) (result-params (cdr (assoc :result-params params)))