From: Michaël Cadilhac <michael.cadilhac@lrde.org>
Date: Mon, 10 Sep 2007 09:32:42 +0000 (+0000)
Subject: (Fcall_interactively): Comment fixes.
X-Git-Tag: emacs-pretest-23.0.90~10993
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ccb5c14f4b1eb18347c522dc53d67c558231641d;p=emacs.git

(Fcall_interactively): Comment fixes.
---

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,