Abolish function `butlast' and `nbutlast'.

diff --git a/mime-def.el b/mime-def.el
index e11363d..d5e5525 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -25,7 +25,7 @@
 ;;; Code:
 
 (defconst mime-library-version
-  '("FLIM" "Tonosh\e-Dò"\e-A 1 9 1)
+  '("FLIM" "Tonosh\e.D\eNr" 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)