diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-04-02 09:51:20 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-04-02 10:04:44 -0400 |
| commit | 84616144ca206ef9a92bd0cd2507376f42bfe3e6 (patch) | |
| tree | febf9d92f37b18c6982c2a71ad225dc5c9154ae8 /src | |
| parent | 3e8f9482fe2288baedd9cc5026e25ffc543683ab (diff) | |
| download | emacs-84616144ca206ef9a92bd0cd2507376f42bfe3e6.tar.gz | |
* lisp/subr.el (prog2): Define as a macro
* src/eval.c (Fprog2): Delete function.
(syms_of_eval): Don't register it.
* lisp/emacs-lisp/byte-opt.el (byte-optimize-form-code-walker):
* lisp/emacs-lisp/generator.el (cps--transform-1): Remove `prog2` case.
* lisp/emacs-lisp/bytecomp.el (prog2): Remove handlers.
(byte-compile-prog2): Delete.
* lisp/emacs-lisp/lisp-mode.el (prog2): Remove property.
Diffstat (limited to 'src')
| -rw-r--r-- | src/eval.c | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/src/eval.c b/src/eval.c index 49d6460e6e4..e9f118c5cb9 100644 --- a/src/eval.c +++ b/src/eval.c @@ -495,17 +495,6 @@ usage: (prog1 FIRST BODY...) */) return val; } -DEFUN ("prog2", Fprog2, Sprog2, 2, UNEVALLED, 0, - doc: /* Eval FORM1, FORM2 and BODY sequentially; return value from FORM2. -The value of FORM2 is saved during the evaluation of the -remaining args, whose values are discarded. -usage: (prog2 FORM1 FORM2 BODY...) */) - (Lisp_Object args) -{ - eval_sub (XCAR (args)); - return Fprog1 (XCDR (args)); -} - DEFUN ("setq", Fsetq, Ssetq, 0, UNEVALLED, 0, doc: /* Set each SYM to the value of its VAL. The symbols SYM are variables; they are literal (not evaluated). @@ -4219,7 +4208,6 @@ alist of active lexical bindings. */); defsubr (&Scond); defsubr (&Sprogn); defsubr (&Sprog1); - defsubr (&Sprog2); defsubr (&Ssetq); defsubr (&Squote); defsubr (&Sfunction); |