diff options
author | Bastien Guerry <bzg@altern.org> | 2011-12-31 13:31:02 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-01-03 09:19:02 +0100 |
commit | 3bd531c9dc764e8ba8d313808b13386caee648ef (patch) | |
tree | 359418030cf119ff131f12de204e2f63451d0742 | |
parent | f62910082c500c4464ecd9285463fd941019a9f2 (diff) | |
download | org-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.el | 19 |
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)) |