branch: elpa/swift-mode
commit 0daff60105eee0f936976543e0e0e65c88627ab4
Author: Jaeyoon Jeong <dalg...@users.noreply.github.com>
Commit: taku0 <ta...@users.noreply.github.com>
Fix unreadable characters appearing in repl prompt
This seems a better fix for swift-emacs/swift-mode#132; The original
solution didn't work for me.
---
swift-mode-repl.el | 28 ++++++++++++++++------------
1 file changed, 16 insertions(+), 12 deletions(-)
diff --git a/swift-mode-repl.el b/swift-mode-repl.el
index db82504..e33af51 100644
--- a/swift-mode-repl.el
+++ b/swift-mode-repl.el
@@ -176,21 +176,25 @@ Runs the hook `swift-repl-mode-hook' \(after the
`comint-mode-hook' is run).
(cmd-string (swift-mode:command-list-to-string cmd))
(cmd-list (swift-mode:command-string-to-list cmd))
(buffer-name (concat "*Swift REPL [" cmd-string "]*"))
- (buffer (get-buffer-create buffer-name)))
- (unless dont-switch
- (pop-to-buffer buffer))
- (with-current-buffer buffer
- (unless (comint-check-proc buffer-name)
- (save-excursion
- (apply 'make-comint-in-buffer
- cmd-string buffer (car cmd-list) nil (cdr cmd-list))
- (swift-repl-mode)))
- (setq-local swift-mode:repl-buffer buffer-name))
+ (buffer (get-buffer-create buffer-name))
+ old-size)
(with-current-buffer original-buffer
- (setq-local swift-mode:repl-buffer buffer-name)
+ (setq-local swift-mode:repl-buffer buffer)
(unless keep-default
(setq-local swift-mode:repl-executable cmd)
- (setq-default swift-mode:repl-buffer swift-mode:repl-buffer)))))
+ (setq-default swift-mode:repl-buffer swift-mode:repl-buffer)))
+ (with-current-buffer buffer
+ (setq old-size (buffer-size))
+ (swift-repl-mode)
+ (setq-local swift-mode:repl-buffer buffer))
+ (unless (comint-check-proc buffer)
+ (apply 'make-comint-in-buffer
+ cmd-string buffer (car cmd-list) nil (cdr cmd-list))
+ (with-current-buffer buffer
+ (while (= old-size (buffer-size))
+ (sleep-for .1))))
+ (unless dont-switch
+ (pop-to-buffer buffer))))
;;;###autoload
(defalias 'run-swift 'swift-mode:run-repl)
