Mercurial > emacs
comparison src/editfns.c @ 35440:21817d18668c
(Fformat): Use lisp_string_width instead of strwidth.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 19 Jan 2001 23:38:06 +0000 |
parents | feb4eb0db1ec |
children | f0f0e9179ed6 |
comparison
equal
deleted
inserted
replaced
35439:e233950d5d07 | 35440:21817d18668c |
---|---|
3309 ++n; | 3309 ++n; |
3310 | 3310 |
3311 if (STRINGP (args[n])) | 3311 if (STRINGP (args[n])) |
3312 { | 3312 { |
3313 int padding, nbytes; | 3313 int padding, nbytes; |
3314 int width = strwidth (XSTRING (args[n])->data, | 3314 int width = lisp_string_width (args[n], -1, NULL, NULL); |
3315 STRING_BYTES (XSTRING (args[n]))); | |
3316 int start = nchars; | 3315 int start = nchars; |
3317 | 3316 |
3318 /* If spec requires it, pad on right with spaces. */ | 3317 /* If spec requires it, pad on right with spaces. */ |
3319 padding = minlen - width; | 3318 padding = minlen - width; |
3320 if (! negative) | 3319 if (! negative) |