diff options
| author | Kenichi Handa <handa@m17n.org> | 2000-12-28 12:22:25 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2000-12-28 12:22:25 +0000 |
| commit | 6d01793f1ae563efeaf9d6fed087fcf48329161d (patch) | |
| tree | 7098d0b4b7583d31a98e326310eadb6864124b8e | |
| parent | f086e73c63d34d8e7d82f4e0b50b85475e96158c (diff) | |
| download | emacs-6d01793f1ae563efeaf9d6fed087fcf48329161d.tar.gz | |
(artist-butlast): Deleted.
(artist-ellipse-mirror-quadrant): Use butlast instead of
artist-last.
| -rw-r--r-- | lisp/textmodes/artist.el | 8 |
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))) |