summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2010-11-26 13:28:44 -0700
committerEric Schulte <schulte.eric@gmail.com>2010-11-26 13:28:44 -0700
commit172a3b6532a941b2afc86650df559c13c916b298 (patch)
tree9508944449b75e2bfa0659b26f791ba72c2745f6
parenta657b6f2a3dff00cf8d550fe74bc14117446c5cd (diff)
downloadorg-mode-172a3b6532a941b2afc86650df559c13c916b298.tar.gz
ob: Fixed compiler warning
* lisp/ob-eval.el (org-babel-eval-wipe-error-buffer): Fixed compiler warning and added documentation string.
-rw-r--r--lisp/ob-eval.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ob-eval.el b/lisp/ob-eval.el
index 74a4d7d..8832d91 100644
--- a/lisp/ob-eval.el
+++ b/lisp/ob-eval.el
@@ -249,12 +249,12 @@ specifies the value of ERROR-BUFFER."
(delete-file error-file))
exit-status))
-
(defun org-babel-eval-wipe-error-buffer ()
+ "Delete the contents of the Org code block error buffer.
+This buffer is named by `org-babel-error-buffer-name'."
(when (get-buffer org-babel-error-buffer-name)
- (save-excursion
- (set-buffer org-babel-error-buffer-name)
- (delete-region (point-min) (point-max)))))
+ (with-current-buffer org-babel-error-buffer-name
+ (delete-region (point-min) (point-max)))))
(provide 'ob-eval)