diff options
author | Bastien Guerry <bzg@altern.org> | 2012-12-20 16:06:25 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-12-20 16:06:25 +0100 |
commit | de84aadf8fe05588fbf806a23898075aabe38d83 (patch) | |
tree | 524272d40120360ccfa3cf2be166c84baf0ec0a8 | |
parent | 27bcf9a70b1137c88cf856719ab6fd74297286ef (diff) | |
download | org-mode-de84aadf8fe05588fbf806a23898075aabe38d83.tar.gz |
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.
-rw-r--r-- | lisp/org-odt.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/org-odt.el b/lisp/org-odt.el index 2dc3af3..f9fd6a2 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))))) |