diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-11-26 13:28:44 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-11-26 13:28:44 -0700 |
commit | 172a3b6532a941b2afc86650df559c13c916b298 (patch) | |
tree | 9508944449b75e2bfa0659b26f791ba72c2745f6 | |
parent | a657b6f2a3dff00cf8d550fe74bc14117446c5cd (diff) | |
download | org-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.el | 8 |
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) |