uiutils.ml: remove annoying error message
This commit is contained in:
parent
0ebac1c15f
commit
2827a6c741
11
uiutils.ml
11
uiutils.ml
|
@ -97,17 +97,6 @@ let enttext () =
|
|||
|
||||
| Birdseye _ | View | LinkNav _ -> !S.text
|
||||
in
|
||||
let s =
|
||||
if !S.newerrmsgs
|
||||
then (
|
||||
if not (istextentry !S.mode) && !S.uioh#eformsgs
|
||||
then
|
||||
let s1 = "(press 'e' to review error messages)" in
|
||||
if nonemptystr s then s ^ " " ^ s1 else s1
|
||||
else s
|
||||
)
|
||||
else s
|
||||
in
|
||||
if nonemptystr s
|
||||
then drawstring s
|
||||
|
||||
|
|
Loading…
Reference in New Issue