diff options
| author | David Maus <dmaus@ictsoc.de> | 2011-07-02 16:15:14 +0200 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2011-07-03 13:04:46 +0200 |
| commit | 4f17b5362a97cd4e8f49686c5d6d9265ead72a71 (patch) | |
| tree | 8d2b3b79e5fca16dab86b00f64014411c843ed30 | |
| parent | 21e08e56435748e3e06759b1d652090601980d3f (diff) | |
| download | org-mode-4f17b5362a97cd4e8f49686c5d6d9265ead72a71.tar.gz | |
Call kill-buffer with argument nil
* ob-haskell.el (org-babel-haskell-export-to-lhs): Call kill-buffer
with argument indiciating to kill current buffer. Emacs 22
compatibility.
GNU Emacs 22.3.2 (i686-pc-linux-gnu) of 2011-05-28 on x60s
C-h f kill-buffer RET
kill-buffer is an interactive built-in function in `C source code'.
It is bound to C-x k.
(kill-buffer buffer)
Kill the buffer buffer.
The argument may be a buffer or the name of a buffer.
With a nil argument, kill the current buffer.
| -rw-r--r-- | lisp/ob-haskell.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ob-haskell.el b/lisp/ob-haskell.el index 4e3e797..822f90a 100644 --- a/lisp/ob-haskell.el +++ b/lisp/ob-haskell.el @@ -192,7 +192,7 @@ constructs (header arguments, no-web syntax etc...) are ignored." (save-excursion ;; export to latex w/org and save as .lhs (find-file tmp-org-file) (funcall 'org-export-as-latex nil) - (kill-buffer) + (kill-buffer nil) (delete-file tmp-org-file) (find-file tmp-tex-file) (goto-char (point-min)) (forward-line 2) @@ -202,7 +202,7 @@ constructs (header arguments, no-web syntax etc...) are ignored." (replace-match (save-match-data (org-remove-indentation (match-string 0))) t t)) (setq contents (buffer-string)) - (save-buffer) (kill-buffer)) + (save-buffer) (kill-buffer nil)) (delete-file tmp-tex-file) ;; save org exported latex to a .lhs file (with-temp-file lhs-file (insert contents)) |