diff options
| author | Michaël Cadilhac <michael.cadilhac@lrde.org> | 2007-09-10 09:32:42 +0000 |
|---|---|---|
| committer | Michaël Cadilhac <michael.cadilhac@lrde.org> | 2007-09-10 09:32:42 +0000 |
| commit | ccb5c14f4b1eb18347c522dc53d67c558231641d (patch) | |
| tree | a1fa8b2f88c5ed64a0c38f7fbaed002dfff11e13 | |
| parent | 2db33a18b6aa01db594db0f1224a7113f3c237f0 (diff) | |
| download | emacs-ccb5c14f4b1eb18347c522dc53d67c558231641d.tar.gz | |
(Fcall_interactively): Comment fixes.
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/callint.c | 6 |
2 files changed, 6 insertions, 4 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index ce9eec41ce2..04d261ffaef 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2007-09-10 Micha,Ak(Bl Cadilhac <michael@cadilhac.name> + + * callint.c (Fcall_interactively): Comment fixes. + 2007-09-10 Stefan Monnier <monnier@iro.umontreal.ca> * callint.c (Fcall_interactively): Use Finteractive_form also for subrs diff --git a/src/callint.c b/src/callint.c index 2ad8f445782..707948e856d 100644 --- a/src/callint.c +++ b/src/callint.c @@ -329,9 +329,7 @@ invoke it. If KEYS is omitted or nil, the return value of /* If k or K discard an up-event, save it here so it can be retrieved with U */ up_event = Qnil; - /* Decode the kind of function. Either handle it and return, - or go to `lose' if not interactive, or set either STRING or SPECS. */ - + /* Set SPECS to the interactive form, or barf if not interactive. */ { Lisp_Object form; GCPRO2 (function, prefix_arg); @@ -343,7 +341,7 @@ invoke it. If KEYS is omitted or nil, the return value of wrong_type_argument (Qcommandp, function); } - /* If either SPECS or STRING is set to a string, use it. */ + /* If SPECS is set to a string, use it as an interactive prompt. */ if (STRINGP (specs)) { /* Make a copy of string so that if a GC relocates specs, |