Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 22:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(Fmessage): Use message2.

Browse source 
(Fsubst_char_in_region): Move the NOUNDO hacking code
after the modify_region call.
This commit is contained in:
Richard M. Stallman 1993-12-23 01:28:34 +00:00
parent c451d7b1a3
commit 7653d03099
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/editfns.c
View file

@ -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;
}
}