[cl-org-mode-devel] [PATCH] * src/cl-org-mode.lisp: specifing file encoding

[Ryo TAKAISHI]

read-org-file become available to understand non ASCII character in
org-file.
---
 src/cl-org-mode.lisp |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cl-org-mode.lisp b/src/cl-org-mode.lisp
index b24fdfc..5fce5d9 100644
--- a/src/cl-org-mode.lisp
+++ b/src/cl-org-mode.lisp
@@ -85,9 +85,9 @@ then stick it in the default node"
 (defclass org-file (org-parent-node) 
   ((pathname :accessor node.pathname :initarg :pathname)))
 
-(defun read-org-file (pathname)
+(defun read-org-file (pathname &key (external-format nil))
   (let ((node (make-instance 'org-file :pathname pathname)))
-    (alexandria:with-input-from-file (stream pathname) 
+    (alexandria:with-input-from-file (stream pathname :external-format external-format)
       (read-parent-node node stream))))(in-package :cl-org-mode)
 
 (defclass delimited-node (org-parent-node)
-- 
1.7.8.rc1