(artist-butlast): Deleted.

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

diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index 918cdffadf854f9fd99d8d4e8252d84df275dcbf..10b547109258c300f20b8bdbdf5b666e464420be 100644 (file)
--- 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)))