diff options
| -rw-r--r-- | src/fileio.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/fileio.c b/src/fileio.c index fc853f26673..7f65cf5aaea 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -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; } |