diff options
| author | David Aspinall | 2009-09-09 23:28:37 +0000 |
|---|---|---|
| committer | David Aspinall | 2009-09-09 23:28:37 +0000 |
| commit | 18dc29086bb5683f2cc00ac7de5742d4eb1a9d08 (patch) | |
| tree | 8aafcf6494c285fb9d09001ccc214b34df7b76fc /generic | |
| parent | 39419dc46d4cf8e055ff7e8a29028dec44e9acf7 (diff) | |
pg-last-output-displayform: strip trailing CR as well as initial one,
to tidy up popups for Isabelle.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/proof-script.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/proof-script.el b/generic/proof-script.el index d3f64ab3..da28e372 100644 --- a/generic/proof-script.el +++ b/generic/proof-script.el @@ -631,9 +631,11 @@ NAME does not need to be unique." unicode-tokens-mode) (unicode-tokens-encode-str proof-shell-last-output) proof-shell-last-output)))) - ;; NOTE: hack for Isabelle which puts ugly leading \n's in proofstate. - (if (eq (string-match "^\n" text) 0) + ;; NOTE: hack for Isabelle which puts ugly leading \n's around proofstate. + (if (string= (substring text 0 1) "\n") (setq text (substring text 1))) + (if (string= (substring text -1) "\n") + (setq text (substring text 0 -1))) text)) ;;;###autoload |