# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 978006145 0
# Node ID ad60696fa4556a34f525f2f1a156c5d6e4a0bea6
# Parent  3343bd5cd98a1fffd375092380ffcbec37d80d2c
(artist-butlast): Deleted.
(artist-ellipse-mirror-quadrant): Use butlast instead of
artist-last.

diff -r 3343bd5cd98a -r ad60696fa455 lisp/textmodes/artist.el
--- a/lisp/textmodes/artist.el	Thu Dec 28 12:22:00 2000 +0000
+++ b/lisp/textmodes/artist.el	Thu Dec 28 12:22:25 2000 +0000
@@ -1675,12 +1675,6 @@
   "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 @@
 				       (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)))