(artist-butlast): Deleted.

(artist-ellipse-mirror-quadrant): Use butlast instead of
artist-last.

1 files changed, 1 insertions, 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)))