procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor tuneup of write-region change

Browse source 
* src/fileio.c (write_region): Use SCHARS, not Flength,
on a value known to be a string.
This commit is contained in:
Paul Eggert 2017-04-07 18:54:39 -07:00
parent c323659344
commit 6fbbfc77d4
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/fileio.c
View file

@ -5156,9 +5156,9 @@ write_region (Lisp_Object start, Lisp_Object end, Lisp_Object filename,
: ! NILP (append)
? "Added to `%s' (%d characters)"
: "Wrote `%s' (%d characters)");
CALLN (Fmessage, format, visit_file,
(STRINGP (start) ? Flength (start)
: make_number (XINT (end) - XINT (start))));
EMACS_INT nchars = (STRINGP (start) ? SCHARS (start)
: XINT (end) - XINT (start));
CALLN (Fmessage, format, visit_file, make_number (nchars));
}
return Qnil;
}