Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Improve PG support of Show Proof Diffs #490

Merged
merged 13 commits into from
May 29, 2020
Prev Previous commit
Next Next commit
fix: Do "Show Proof…" (with "?Goal") as soon as the proof is started
  • Loading branch information
erikmd authored and CyrilAnac committed May 29, 2020
commit 411ebb27fda4d39fc22baf341dcdde2341632b8d
6 changes: 4 additions & 2 deletions coq/coq.el
Original file line number Diff line number Diff line change
Expand Up @@ -1246,14 +1246,16 @@ be called and no command will be sent to Coq."
(list "Unset Silent." (coq-diffs) )
(list "Unset Silent.")))
((or
;; If starting a proof, Show Proof if need be
(coq-goal-command-str-p cmd)
CyrilAnac marked this conversation as resolved.
Show resolved Hide resolved
;; If doing (not closing) a proof, Show Proof if need be
(and (not (string-match-p coq-save-command-regexp-strict cmd))
(> (length coq-last-but-one-proofstack) 0)
(> (length coq-last-but-one-proofstack) 0)))
(when coq-show-proof-stepwise
(or
(when (eq coq-diffs 'off) (list "Show Proof." ))
(when (eq coq-diffs 'on) (list "Show Proof Diffs."))
(when (eq coq-diffs 'removed) (list "Show Proof Diffs removed.")))))))))
(when (eq coq-diffs 'removed) (list "Show Proof Diffs removed.")))))))


(defpacustom auto-adapt-printing-width t
Expand Down