802 |
== SCHARS (current_kboard->echo_string)) |
== SCHARS (current_kboard->echo_string)) |
803 |
return; |
return; |
804 |
|
|
805 |
|
/* Do nothing if we have already put a dash at the end. */ |
806 |
|
if (SCHARS (current_kboard->echo_string) > 1) |
807 |
|
{ |
808 |
|
Lisp_Object last_char, prev_char, idx; |
809 |
|
|
810 |
|
idx = make_number (SCHARS (current_kboard->echo_string) - 2); |
811 |
|
prev_char = Faref (current_kboard->echo_string, idx); |
812 |
|
|
813 |
|
idx = make_number (SCHARS (current_kboard->echo_string) - 1); |
814 |
|
last_char = Faref (current_kboard->echo_string, idx); |
815 |
|
|
816 |
|
if (XINT (last_char) == '-' && XINT (prev_char) != ' ') |
817 |
|
return; |
818 |
|
} |
819 |
|
|
820 |
/* Put a dash at the end of the buffer temporarily, |
/* Put a dash at the end of the buffer temporarily, |
821 |
but make it go away when the next character is added. */ |
but make it go away when the next character is added. */ |
822 |
current_kboard->echo_string = concat2 (current_kboard->echo_string, |
current_kboard->echo_string = concat2 (current_kboard->echo_string, |