diff options
Diffstat (limited to 'coq')
-rw-r--r-- | coq/coq.el | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -2194,7 +2194,8 @@ mouse activation." (defun coq--format-intros (output) "Create an “intros” form from the OUTPUT of “Show Intros”." - (let* ((shints (replace-regexp-in-string "[\r\n ]*\\'" "" output))) + (let* ((shints1 (replace-regexp-in-string "^[0-9] subgoal\\(.\\|\n\\|\r\\)*" "" output)) + (shints (replace-regexp-in-string "[\r\n ]*\\'" "" shints1))) (if (or (string= "" shints) (string-match coq-error-regexp shints)) (error "Don't know what to intro") |