Mercurial > emacs
changeset 34903:ad60696fa455
(artist-butlast): Deleted.
(artist-ellipse-mirror-quadrant): Use butlast instead of
artist-last.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 28 Dec 2000 12:22:25 +0000 |
| parents | 3343bd5cd98a |
| children | fb9a566b63eb |
| files | lisp/textmodes/artist.el |
| diffstat | 1 files changed, 1 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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)))