From: morioka <morioka>
Date: Thu, 22 Apr 1999 03:17:24 +0000 (+0000)
Subject: (caar): New function.
X-Git-Tag: apel-9_17~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8030eb5027b13784e1932bef95a457b02fd7fc5c;p=elisp%2Fapel.git

(caar): New function.
---

diff --git a/poe.el b/poe.el
index 66464c9..265bfda 100644
--- a/poe.el
+++ b/poe.el
@@ -415,6 +415,11 @@ Value is nil if OBJECT is not a buffer or if it has been killed.
   (cons 'if (cons cond (cons nil body))))
 
 ;; imported from Emacs 20.3.
+(defsubst-maybe caar (x)
+  "Return the car of the car of X."
+  (car (car x)))
+
+;; imported from Emacs 20.3.
 (defun-maybe last (x &optional n)
   "Return the last link of the list X.  Its car is the last element.
 If X is nil, return nil.