Mercurial > emacs
changeset 81608:75c51005f057
(Fcall_interactively): Make the parsing of interactive
specs somewhat more readable.
| author | David Kastrup <dak@gnu.org> |
|---|---|
| date | Mon, 25 Jun 2007 19:48:37 +0000 |
| parents | 56b815dd1abb |
| children | 7e640eac2dcb |
| files | src/ChangeLog src/callint.c |
| diffstat | 2 files changed, 12 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Mon Jun 25 16:19:05 2007 +0000 +++ b/src/ChangeLog Mon Jun 25 19:48:37 2007 +0000 @@ -1,3 +1,8 @@ +2007-06-25 David Kastrup <dak@gnu.org> + + * callint.c (Fcall_interactively): Make the parsing of interactive + specs somewhat more readable. + 2007-06-23 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> * macterm.c (x_draw_fringe_bitmap) [MAC_OSX]: Extend fringe background
--- a/src/callint.c Mon Jun 25 16:19:05 2007 +0000 +++ b/src/callint.c Mon Jun 25 19:48:37 2007 +0000 @@ -473,16 +473,19 @@ /* Count the number of arguments the interactive spec would have us give to the function. */ tem = string; - for (j = 0; *tem; j++) + for (j = 0; *tem;) { /* 'r' specifications ("point and mark as 2 numeric args") produce *two* arguments. */ - if (*tem == 'r') j++; + if (*tem == 'r') + j += 2; + else + j++; tem = (unsigned char *) index (tem, '\n'); if (tem) - tem++; + ++tem; else - tem = (unsigned char *) ""; + break; } count = j;