Permalink
Browse files

Fix Emacs lockup if mouse clicking in REPL with REPL thread busy

  • Loading branch information...
1 parent f5085b7 commit d6293f9f1b6b8871b0a4417c4bb22afb9910b97f Max Mikhanosha committed Sep 22, 2013
Showing with 3 additions and 1 deletion.
  1. +3 −1 elisp/log4slime.el
View
@@ -259,7 +259,9 @@ argument, the parent effective log level (string)")
"Wrapper around `slime-eval' that ignores errors on the lisp side"
(when (log4slime-check-connection)
;; I swear it something in slime-eval screws with point sometimes
- (save-excursion (slime-eval `(cl:ignore-errors ,form)))))
+ (save-excursion
+ (let ((slime-current-thread t))
+ (slime-eval `(cl:ignore-errors ,form))))))
(defvar log4slime-goto-definition-window nil
"Passed as WHERE to `slime-pop-to-location', can be 'WINDOW or 'FRAME too")

0 comments on commit d6293f9

Please sign in to comment.