diff options
| -rw-r--r-- | coq/coq-compile-common.el | 18 | ||||
| -rw-r--r-- | coq/coq-seq-compile.el | 16 |
2 files changed, 17 insertions, 17 deletions
diff --git a/coq/coq-compile-common.el b/coq/coq-compile-common.el index bc7cf03f..081923a0 100644 --- a/coq/coq-compile-common.el +++ b/coq/coq-compile-common.el @@ -373,10 +373,26 @@ FILE should be an absolute file name. It can be nil if (append coq-prog-args (coq-include-options nil)))) -(provide 'coq-compile-common) +;; kill coqtop on script buffer change + +(defun coq-switch-buffer-kill-proof-shell () + "Kill the proof shell without asking the user. +This function is for `proof-deactivate-scripting-hook'. It kills +the proof shell without asking the user for +confirmation (assuming she agreed already on switching the active +scripting buffer). This is needed to ensure the load path is +correct in the new scripting buffer." + (unless proof-shell-exit-in-progress + (proof-shell-exit t))) + +(add-hook 'proof-deactivate-scripting-hook + 'coq-switch-buffer-kill-proof-shell + t) +(provide 'coq-compile-common) + ;; Local Variables: *** ;; coding: utf-8 *** ;; End: *** diff --git a/coq/coq-seq-compile.el b/coq/coq-seq-compile.el index d7b50f8c..7e9e0bfd 100644 --- a/coq/coq-seq-compile.el +++ b/coq/coq-seq-compile.el @@ -502,22 +502,6 @@ compilation (if necessary) of the dependencies." (add-hook 'proof-shell-extend-queue-hook 'coq-preprocess-require-commands) -;; kill coqtop on script buffer change - -(defun coq-switch-buffer-kill-proof-shell () - "Kill the proof shell without asking the user. -This function is for `proof-deactivate-scripting-hook'. It kills -the proof shell without asking the user for -confirmation (assuming she agreed already on switching the active -scripting buffer). This is needed to ensure the load path is -correct in the new scripting buffer." - (unless proof-shell-exit-in-progress - (proof-shell-exit t))) - - -(add-hook 'proof-deactivate-scripting-hook - 'coq-switch-buffer-kill-proof-shell - t) |