瀏覽代碼

babel: erase previous contents of preview buffer

Dan Davison 15 年之前
父節點
當前提交
7decdec3b2
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      contrib/babel/lisp/org-babel.el

+ 1 - 0
contrib/babel/lisp/org-babel.el

@@ -281,6 +281,7 @@ arguments, and pop open the results in a preview buffer."
          (expanded (funcall cmd body params))
          (buf (get-buffer-create "*Org-Babel Code Body Preview*")))
     (with-current-buffer buf
+      (erase-buffer)
       (insert expanded)
       (funcall (intern (concat lang "-mode"))))
     (pop-to-buffer buf)))