From 8030eb5027b13784e1932bef95a457b02fd7fc5c Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 22 Apr 1999 03:17:24 +0000 Subject: [PATCH] (caar): New function. --- poe.el | 5 +++++ 1 file changed, 5 insertions(+) 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. -- 1.7.10.4