From mboxrd@z Thu Jan 1 00:00:00 1970 From: Aaron Ecay Subject: [PATCH 02/10] Clean up org-babel-expand-body: functions for awk and picolisp Date: Mon, 1 Apr 2013 01:42:16 -0400 Message-ID: <1364794944-13826-3-git-send-email-aaronecay@gmail.com> References: <1364794944-13826-1-git-send-email-aaronecay@gmail.com> Return-path: Received: from eggs.gnu.org ([208.118.235.92]:37679) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UMXVs-0002jA-AQ for emacs-orgmode@gnu.org; Mon, 01 Apr 2013 01:42:38 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UMXVp-0000vA-IB for emacs-orgmode@gnu.org; Mon, 01 Apr 2013 01:42:36 -0400 Received: from mail-qa0-f46.google.com ([209.85.216.46]:52245) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UMXVp-0000uz-4d for emacs-orgmode@gnu.org; Mon, 01 Apr 2013 01:42:33 -0400 Received: by mail-qa0-f46.google.com with SMTP id k4so710182qaq.12 for ; Sun, 31 Mar 2013 22:42:32 -0700 (PDT) In-Reply-To: <1364794944-13826-1-git-send-email-aaronecay@gmail.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * 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 f717fec..373d5fd 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 e785366..1d17919 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))) -- 1.8.2