diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2000-05-30 13:30:03 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2000-05-30 13:30:03 +0000 |
| commit | 424719c7a6972df0a3729e93fdb712efff65da37 (patch) | |
| tree | 857208d5488add3da3ef82d1f587716e21ccd1e2 /generic | |
| parent | 725e79e7c4e21b1de6bbe33dfdf1cfd02f136ce4 (diff) | |
Arg for proof-minibuffer-cmd: compact whitespace in region.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/proof-script.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/proof-script.el b/generic/proof-script.el index 7fc1bac0..1242df23 100644 --- a/generic/proof-script.el +++ b/generic/proof-script.el @@ -2010,7 +2010,9 @@ is off (nil)." (interactive (list (read-string "Command: " (if (and current-prefix-arg (region-exists-p)) - (buffer-substring (region-beginning) (region-end))) + (replace-in-string + (buffer-substring (region-beginning) (region-end)) + "[ \t\n]+" " ")) 'proof-minibuffer-history))) (if (and proof-strict-state-preserving proof-state-preserving-p |