diff options
author | Pierre Courtieu <courtieu@lri.fr> | 2011-09-11 12:54:03 +0000 |
---|---|---|
committer | Pierre Courtieu <courtieu@lri.fr> | 2011-09-11 12:54:03 +0000 |
commit | fdb02087874d15c4d8e54763f4ab04d63b84f0d5 (patch) | |
tree | d2e77c07ee1b231cbd2b5da05b914cceca0bf798 /generic/proof-shell.el | |
parent | b4bb30b10e420dbfef8ba4c714f49cc56812011b (diff) |
Fix proof-shell-exit optional argument with (interactive) thanks to
Erik Martin-Dorel.
Diffstat (limited to 'generic/proof-shell.el')
-rw-r--r-- | generic/proof-shell.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/proof-shell.el b/generic/proof-shell.el index a010276a..a2d37f6b 100644 --- a/generic/proof-shell.el +++ b/generic/proof-shell.el @@ -370,7 +370,7 @@ process command." (error "%s process exited!" proc)) ;; PG manages the prover process, don't query user on exit - (set-process-query-on-exit-flag + (set-process-query-on-exit-flag (get-buffer-process proof-shell-buffer) nil) ;; Initialise associated buffers @@ -502,7 +502,7 @@ without confirmation. The kill function uses `<PA>-quit-timeout' as a timeout to wait after sending `proof-shell-quit-cmd' before rudely killing the process." - (interactive) + (interactive "P") (if (buffer-live-p proof-shell-buffer) (when (or dont-ask (yes-or-no-p (format "Exit %s process? " proof-assistant))) |