diff options
author | Erik Martin-Dorel <erik@martin-dorel.org> | 2018-08-23 01:37:33 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2018-08-23 01:37:33 +0200 |
commit | 733cd24a7368ee186884da488da0f59bbedb627e (patch) | |
tree | e2a6832c08a6f058f423879c40c02fd924082af3 /generic/pg-autotest.el | |
parent | 26b3bf9f070e9aee45c6e3d19bca475d4ae8ed37 (diff) | |
parent | 7986697e7999e1d24356d459d64e7be5ee4c8da0 (diff) |
Merge pull request #380 from ProofGeneral/prepare-melpa
Prepare PG for MELPA
Diffstat (limited to 'generic/pg-autotest.el')
-rw-r--r-- | generic/pg-autotest.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/pg-autotest.el b/generic/pg-autotest.el index bc3ab9c5..e7cb19a9 100644 --- a/generic/pg-autotest.el +++ b/generic/pg-autotest.el @@ -104,7 +104,7 @@ (format-time-string "%D %H:%M"))))) (defun pg-autotest-message (msg &rest args) - "Give message MSG in log file output and on display." + "Give message MSG (formatted using ARGS) in log file output and on display." (let ((fmsg (if args (apply 'format msg args) msg))) (proof-with-current-buffer-if-exists pg-autotest-log @@ -217,7 +217,7 @@ completely processing the buffer as the last step." (proof-shell-wait) (decf jumps)) - ((and (eq random-thing 1) + ((and (eq random-thing 1) (not (proof-locked-region-empty-p))) (pg-autotest-message " random jump: retracting whole buffer") @@ -280,7 +280,7 @@ completely processing the buffer as the last step." (defun pg-autotest-test-quit-prover () "Exit prover process." (if (buffer-live-p proof-shell-buffer) - (let ((kill-buffer-query-functions nil)) + (let ((kill-buffer-query-functions nil)) (kill-buffer proof-shell-buffer)) (error "No proof shell buffer to kill"))) |