瀏覽代碼

org-agenda.el: Small code cleanup.

* org-agenda.el (org-batch-agenda, org-batch-agenda-csv):
Remove deleted function `org-encode-for-stdout'.
Bastien Guerry 13 年之前
父節點
當前提交
3bd531c9dc
共有 1 個文件被更改,包括 5 次插入14 次删除
  1. 5 14
      lisp/org-agenda.el

+ 5 - 14
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))