summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2011-12-31 13:31:02 +0100
committerBastien Guerry <bzg@altern.org>2012-01-03 09:19:02 +0100
commit3bd531c9dc764e8ba8d313808b13386caee648ef (patch)
tree359418030cf119ff131f12de204e2f63451d0742
parentf62910082c500c4464ecd9285463fd941019a9f2 (diff)
downloadorg-mode-3bd531c9dc764e8ba8d313808b13386caee648ef.tar.gz
org-agenda.el: Small code cleanup.
* org-agenda.el (org-batch-agenda, org-batch-agenda-csv): Remove deleted function `org-encode-for-stdout'.
-rw-r--r--lisp/org-agenda.el19
1 files changed, 5 insertions, 14 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index a543969..4b7a821 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))