From 7653d0309969431aeae04bb409c6a94241bee989 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 23 Dec 1993 01:28:34 +0000 Subject: [PATCH] (Fmessage): Use message2. (Fsubst_char_in_region): Move the NOUNDO hacking code after the modify_region call. --- src/editfns.c | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/src/editfns.c b/src/editfns.c index de8d167191b..e555168ecfd 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -1141,14 +1141,6 @@ and don't mark the buffer as really changed.") stop = XINT (end); look = XINT (fromchar); - if (! NILP (noundo)) - { - if (MODIFF - 1 == current_buffer->save_modified) - current_buffer->save_modified++; - if (MODIFF - 1 == current_buffer->auto_save_modified) - current_buffer->auto_save_modified++; - } - while (pos < stop) { if (FETCH_CHAR (pos) == look) @@ -1156,7 +1148,16 @@ and don't mark the buffer as really changed.") if (! changed) { modify_region (current_buffer, XINT (start), stop); - changed = 1; + + if (! NILP (noundo)) + { + if (MODIFF - 1 == current_buffer->save_modified) + current_buffer->save_modified++; + if (MODIFF - 1 == current_buffer->auto_save_modified) + current_buffer->auto_save_modified++; + } + + changed = 1; } if (NILP (noundo)) @@ -1382,7 +1383,7 @@ minibuffer contents show.") { register Lisp_Object val; val = Fformat (nargs, args); - message ("%s", XSTRING (val)->data); + message2 (XSTRING (val)->data, XSTRING (val)->size); return val; } } -- 2.39.5