Mercurial > emacs
diff src/callint.c @ 39813:638b60fd98d0
(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 | 0b986bb45526 |
children | c4d061857bb0 |
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));