[nongnu] elpa/inf-clojure c30f90e 265/313: Ensure comint-truncate-buffer call is from the repl buffer

[ELPA Syncer]

branch: elpa/inf-clojure
commit c30f90e1e15e13d41bada69e23bbb2354c9a5dd2
Author: dan sutton <dan@dpsutton.com>
Commit: Bozhidar Batsov <bozhidar.batsov@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.