tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-agenda.el: Small code cleanup. 

* org-agenda.el (org-batch-agenda, org-batch-agenda-csv):
Remove deleted function `org-encode-for-stdout'.
This commit is contained in:
Bastien Guerry 2011-12-31 13:31:02 +01:00
parent f62910082c
commit 3bd531c9dc
1 changed files with 5 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/org-agenda.el
View File

@ -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))