From 6b03816d49eb898adaba04e2f9a596c9914a34bd Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 12 Aug 2000 03:44:39 +0000 Subject: [PATCH] (butlast): Use `defun' instead of `defun-maybe'. (nbutlast): Likewise. --- poe/poe.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/poe/poe.el b/poe/poe.el index c324dde..1458a0c 100644 --- a/poe/poe.el +++ b/poe/poe.el @@ -651,12 +651,12 @@ If N is bigger than the length of X, return X." x)) ;; Actually, `butlast' and `nbutlast' are defined in lisp/cl.el. -(defun-maybe butlast (x &optional n) +(defun butlast (x &optional n) "Returns a copy of LIST with the last N elements removed." (if (and n (<= n 0)) x (nbutlast (copy-sequence x) n))) -(defun-maybe nbutlast (x &optional n) +(defun nbutlast (x &optional n) "Modifies LIST to remove the last N elements." (let ((m (length x))) (or n (setq n 1)) -- 1.7.10.4