From: morioka <morioka>
Date: Fri, 11 Sep 1998 11:59:04 +0000 (+0000)
Subject: Abolish function `butlast' and `nbutlast'.
X-Git-Tag: flim-1_9_2~16
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fflim.git;a=commitdiff_plain;h=a464fea43696d79afaee0064f2f58122adb2cfaa

Abolish function `butlast' and `nbutlast'.
---

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)