From de84aadf8fe05588fbf806a23898075aabe38d83 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 20 Dec 2012 16:06:25 +0100 Subject: [PATCH] org-odt.el: Fix Emacs bug #13197. * org-odt.el (org-odt-cleanup-xml-buffers): Fix Emacs Bug#13197 by setting the correct buffer before marking it unmodified to silently kill him. Thanks to Drew Adams for reporting this and to Jambunathan for offering to fix it. --- lisp/org-odt.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/org-odt.el b/lisp/org-odt.el index 2dc3af39b..f9fd6a2b9 100644 --- a/lisp/org-odt.el +++ b/lisp/org-odt.el @@ -439,11 +439,11 @@ values. See Info node `(emacs) File Variables'." "meta.xml" "styles.xml"))) ;; kill all xml buffers (mapc (lambda (file) - (let ((buf (find-file-noselect - (expand-file-name file org-odt-zip-dir) t))) - (when (buffer-name buf) - (set-buffer-modified-p nil) - (kill-buffer buf)))) + (with-current-buffer + (find-file-noselect + (expand-file-name file org-odt-zip-dir) t) + (set-buffer-modified-p nil) + (kill-buffer))) xml-files)) ;; delete temporary directory. (delete-directory org-odt-zip-dir t)))))