From 6d01793f1ae563efeaf9d6fed087fcf48329161d Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 28 Dec 2000 12:22:25 +0000 Subject: [PATCH] (artist-butlast): Deleted. (artist-ellipse-mirror-quadrant): Use butlast instead of artist-last. --- lisp/textmodes/artist.el | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el index 918cdffadf8..10b54710925 100644 --- a/lisp/textmodes/artist.el +++ b/lisp/textmodes/artist.el @@ -1675,12 +1675,6 @@ info-variant-part." "Call function FN with ARGS iff FN is not nil." (list 'if fn (cons 'funcall (cons fn args)))) -(defun artist-butlast (l) - "Return the list L with all elements but the last." - (cond ((null l) nil) - ((null (cdr l)) nil) - (t (cons (car l) (artist-butlast (cdr l)))))) - (defun artist-last (seq &optional n) "Return the last link in the list SEQ. With optional argument N, returns Nth-to-last link (default 1)." @@ -3347,7 +3341,7 @@ The POINT-LIST is expected to cover the first quadrant." (t c))))) ;; The cdr and butlast below is so we don't draw the middle top ;; and middle bottom char twice. - (artist-butlast (cdr (reverse right-half))))) + (butlast (cdr (reverse right-half))))) (append right-half left-half))) -- 2.39.2