diff --git a/lisp/ein-ac.el b/lisp/ein-ac.el index 71f664f..536fcbe 100644 --- a/lisp/ein-ac.el +++ b/lisp/ein-ac.el @@ -105,7 +105,8 @@ (symbol . "c"))) (defun ein:ac-request-in-background () - (ein:and-let* ((kernel (ein:get-kernel))) + (ein:and-let* ((kernel (ein:get-kernel)) + ((ein:kernel-live-p kernel))) (ein:completer-complete kernel :callbacks @@ -162,7 +163,7 @@ popup help string." (callbacks (list :object_info_reply (cons #'ein:ac-set-document candidate)))) (when (and candidate - kernel + (ein:kernel-live-p kernel) (not (get-text-property 0 'document candidate))) (ein:log 'debug "Requesting object info for AC candidate %S" candidate) diff --git a/lisp/ein-kernel.el b/lisp/ein-kernel.el index 741428b..4046a4c 100644 --- a/lisp/ein-kernel.el +++ b/lisp/ein-kernel.el @@ -252,6 +252,7 @@ (defun ein:kernel-live-p (kernel) (and + (ein:$kernel-p kernel) (ein:aand (ein:$kernel-shell-channel kernel) (ein:websocket-open-p it)) (ein:aand (ein:$kernel-iopub-channel kernel) (ein:websocket-open-p it))))