From: Richard M. Stallman Date: Sat, 23 Aug 1997 18:55:52 +0000 (+0000) Subject: (caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts. X-Git-Tag: emacs-20.1~457 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d370591d58e78adbbcb788d0aa0cc9de3fcdbff7;p=emacs.git (caar, cadr, cdar, cddr): Definitions moved here and changed into defsubsts. --- diff --git a/lisp/subr.el b/lisp/subr.el index 308d400ee88..a93cd3f8b52 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -62,6 +62,22 @@ BODY should be a list of lisp expressions." (cons 'if (cons cond (cons nil body)))) (put 'unless 'lisp-indent-function 1) (put 'unless 'edebug-form-spec '(&rest form)) + +(defsubst caar (x) + "Return the car of the car of X." + (car (car x))) + +(defsubst cadr (x) + "Return the car of the cdr of X." + (car (cdr x))) + +(defsubst cdar (x) + "Return the cdr of the car of X." + (cdr (car x))) + +(defsubst cddr (x) + "Return the cdr of the cdr of X." + (cdr (cdr x))) ;;;; Keymap support.