From 112d1281802b0e4877b240d868c3b6c0a502fe65 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 31 Dec 2011 13:31:02 +0100 Subject: [PATCH] org-agenda.el: Small code cleanup. * org-agenda.el (org-batch-agenda, org-batch-agenda-csv): Remove deleted function `org-encode-for-stdout'. --- lisp/org-agenda.el | 19 +++++-------------- 1 file changed, 5 insertions(+), 14 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index e0713c975..c488678e0 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -2608,17 +2608,9 @@ before running the agenda command." (org-tags-view nil cmd-key) (org-agenda nil cmd-key))) (set-buffer org-agenda-buffer-name) - (princ (org-encode-for-stdout (buffer-string)))) + (princ (buffer-string))) (def-edebug-spec org-batch-agenda (form &rest sexp)) -;(defun org-encode-for-stdout (string) -; (if (fboundp 'encode-coding-string) -; (encode-coding-string string buffer-file-coding-system) -; string)) - -(defun org-encode-for-stdout (string) - string) - (defvar org-agenda-info nil) ;;;###autoload @@ -2670,11 +2662,10 @@ agenda-day The day in the agenda where this is listed" (setq org-agenda-info (org-fix-agenda-info (text-properties-at 0 line))) (princ - (org-encode-for-stdout - (mapconcat 'org-agenda-export-csv-mapper - '(org-category txt type todo tags date time extra - priority-letter priority agenda-day) - ","))) + (mapconcat 'org-agenda-export-csv-mapper + '(org-category txt type todo tags date time extra + priority-letter priority agenda-day) + ",")) (princ "\n"))))) (def-edebug-spec org-batch-agenda-csv (form &rest sexp)) -- 2.11.4.GIT