Mercurial > emacs

changeset 39813:638b60fd98d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcall_interactively): Remove unused code. Use XCAR/XCDR.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 12 Oct 2001 03:44:45 +0000
parents 66e0816837a8
children a9c8422074c9
files src/callint.c
diffstat 1 files changed, 2 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/callint.c	Fri Oct 12 03:37:43 2001 +0000
+++ b/src/callint.c	Fri Oct 12 03:44:45 2001 +0000
@@ -259,9 +259,6 @@
 	  function = wrong_type_argument (Qcommandp, function);
 	  goto retry;
 	}
-      if ((EMACS_INT) string == 1)
-	/* Let SPECS (which is nil) be used as the args.  */
-	string = 0;
     }
   else if (COMPILEDP (fun))
     {
@@ -271,7 +268,7 @@
     }
   else if (!CONSP (fun))
     goto lose;
-  else if (funcar = Fcar (fun), EQ (funcar, Qautoload))
+  else if (funcar = XCAR (fun), EQ (funcar, Qautoload))
     {
       GCPRO2 (function, prefix_arg);
       do_autoload (fun, function);
@@ -280,7 +277,7 @@
     }
   else if (EQ (funcar, Qlambda))
     {
-      specs = Fassq (Qinteractive, Fcdr (Fcdr (fun)));
+      specs = Fassq (Qinteractive, Fcdr (XCDR (fun)));
       if (NILP (specs))
 	goto lose;
       specs = Fcar (Fcdr (specs));