From a464fea43696d79afaee0064f2f58122adb2cfaa Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 11 Sep 1998 11:59:04 +0000 Subject: [PATCH] Abolish function `butlast' and `nbutlast'. --- mime-def.el | 18 +----------------- 1 file changed, 1 insertion(+), 17 deletions(-) diff --git a/mime-def.el b/mime-def.el index e11363d..d5e5525 100644 --- a/mime-def.el +++ b/mime-def.el @@ -25,7 +25,7 @@ ;;; Code: (defconst mime-library-version - '("FLIM" "Tonosh-Dò"-A 1 9 1) + '("FLIM" "Tonosh.DNr" 1 9 1) "Implementation name, version name and numbers of MIME-library package.") (defconst mime-library-version-string @@ -69,22 +69,6 @@ ;;; @ required functions ;;; -(unless (fboundp 'butlast) - (defun butlast (x &optional n) - "Returns a copy of LIST with the last N elements removed." - (if (and n (<= n 0)) x - (nbutlast (copy-sequence x) n))) - - (defun nbutlast (x &optional n) - "Modifies LIST to remove the last N elements." - (let ((m (length x))) - (or n (setq n 1)) - (and (< n m) - (progn - (if (> n 0) (setcdr (nthcdr (- (1- m) n) x) nil)) - x)))) - ) - (defsubst eliminate-top-spaces (string) "Eliminate top sequence of space or tab in STRING." (if (string-match "^[ \t]+" string) -- 1.7.10.4