diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-12-23 01:28:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-12-23 01:28:34 +0000 |
| commit | 7653d0309969431aeae04bb409c6a94241bee989 (patch) | |
| tree | fe9ec55f98162ea9c148cb4d7ab84c11a07b0835 | |
| parent | c451d7b1a3432619519f38cb59a465b0d8351476 (diff) | |
| download | emacs-7653d0309969431aeae04bb409c6a94241bee989.tar.gz emacs-7653d0309969431aeae04bb409c6a94241bee989.tar.bz2 emacs-7653d0309969431aeae04bb409c6a94241bee989.zip | |
(Fmessage): Use message2.
(Fsubst_char_in_region): Move the NOUNDO hacking code
after the modify_region call.
| -rw-r--r-- | src/editfns.c | 21 |
1 files 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; } } |