浏览代码

org-e-odt.el: Fix export issues on Windows XP

Fixes http://lists.gnu.org/archive/html/emacs-orgmode/2012-11/msg00747.html
Jambunathan K 12 年之前
父节点
当前提交
8cf8c1d8c0
共有 1 个文件被更改,包括 3 次插入2 次删除
  1. 3 2
      contrib/lisp/org-e-odt.el

+ 3 - 2
contrib/lisp/org-e-odt.el

@@ -3670,7 +3670,7 @@ contextual information."
 	    (lambda nil
 	      ;; Kill all XML buffers.
 	      (mapc (lambda (file)
-		      (let ((buf (get-file-buffer
+		      (let ((buf (find-buffer-visiting
 				  (concat org-e-odt-zip-dir file))))
 			(when buf
 			  (set-buffer-modified-p nil)
@@ -3702,7 +3702,8 @@ contextual information."
 	   (org-e-odt-write-manifest-file)
 	   ;; Save all XML files.
 	   (mapc (lambda (file)
-		   (let ((buf (get-file-buffer (concat org-e-odt-zip-dir file))))
+		   (let ((buf (find-buffer-visiting
+			       (concat org-e-odt-zip-dir file))))
 		     (when buf
 		       (with-current-buffer buf
 			 ;; Prettify output if needed.