branch: elpa/inf-clojure
commit c30f90e1e15e13d41bada69e23bbb2354c9a5dd2
Author: dan sutton <d...@dpsutton.com>
Commit: Bozhidar Batsov <bozhidar.bat...@gmail.com>
Ensure comint-truncate-buffer call is from the repl buffer
---
inf-clojure.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/inf-clojure.el b/inf-clojure.el
index a100ed9..992234f 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -598,8 +598,11 @@ to continue it."
(defun inf-clojure-clear-repl-buffer ()
"Clear the REPL buffer."
(interactive)
- (let ((comint-buffer-maximum-size 0))
- (comint-truncate-buffer)))
+ (with-current-buffer (if (derived-mode-p 'inf-clojure-mode)
+ (current-buffer)
+ inf-clojure-buffer)
+ (let ((comint-buffer-maximum-size 0))
+ (comint-truncate-buffer))))
(defun inf-clojure-switch-to-repl (eob-p)
"Switch to the inferior Clojure process buffer.
