From: morioka <morioka>
Date: Mon, 9 Mar 1998 11:25:10 +0000 (+0000)
Subject: tm 7.22.
X-Git-Tag: tm7_22~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ca57bb295a20514e20052f7b2cde1ab0d2ec0253;p=elisp%2Fapel.git

tm 7.22.
---

diff --git a/Makefile b/Makefile
index 9421570..e33828c 100644
--- a/Makefile
+++ b/Makefile
@@ -16,9 +16,10 @@ TLDIR18 = $(HOME)/lib/emacs18/lisp
 TLDIR19 = $(HOME)/lib/emacs19/lisp
 
 
-FILES	= tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi
+FILES	= tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi \
+		tl/Changes*
 
-TARFILE = tl-7.01.2.tar
+TARFILE = tl-7.01.3.tar
 
 
 elc:
diff --git a/emu-18.el b/emu-18.el
index bd67faa..3c1fb8b 100644
--- a/emu-18.el
+++ b/emu-18.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu-18.el,v 7.0 1995/10/12 11:27:33 morioka Exp $
+;;;	$Id: emu-18.el,v 7.1 1995/11/05 08:34:22 morioka Exp $
 ;;; Keywords: emulation, compatibility
 ;;;
 ;;; This file is part of tl and tm (Tools for MIME).
@@ -26,7 +26,7 @@ FUNCTION is added at the end.
 HOOK should be a symbol, and FUNCTION may be any valid function.  If
 HOOK is void, it is first set to nil.  If HOOK's value is a single
 function, it is changed to a list of functions.
-\[emu-18 Emacs 19 emulating function]"
+\[emu-18.el; Emacs 19 emulating function]"
   (or (boundp hook)
       (set hook nil)
       )
@@ -58,11 +58,31 @@ function, it is changed to a list of functions.
 (defun member (elt list)
   "Return non-nil if ELT is an element of LIST.  Comparison done with EQUAL.
 The value is actually the tail of LIST whose car is ELT.
-\[emu-18 Emacs 19 emulating function]"
+\[emu-18.el; Emacs 19 emulating function]"
   (while (and list (not (equal elt (car list))))
     (setq list (cdr list)))
   list)
 
+(defun delete (elt list)
+  "Delete by side effect any occurrences of ELT as a member of LIST.
+The modified LIST is returned.  Comparison is done with `equal'.
+If the first member of LIST is ELT, deleting it is not a side effect;
+it is simply using a different list.
+Therefore, write `(setq foo (delete element foo))'
+to be sure of changing the value of `foo'.
+\[emu-18.el; Emacs 19 emulating function]"
+  (if (equal elt (car list))
+      (cdr list)
+    (let ((rest list)
+	  (rrest (cdr list))
+	  )
+      (while (and rrest (not (equal elt (car rrest))))
+	(setq rest rrest
+	      rrest (cdr rrest))
+	)
+      (rplacd rest (cdr rrest))
+      list)))
+
 
 ;;; @ function
 ;;;
@@ -70,11 +90,13 @@ The value is actually the tail of LIST whose car is ELT.
 (defun defalias (SYM NEWDEF)
   "Set SYMBOL's function definition to NEWVAL, and return NEWVAL.
 Associates the function with the current load file, if any.
-\[emu-18 Emacs 19 emulating function]"
+\[emu-18.el; Emacs 19 emulating function]"
   (fset SYM (symbol-function NEWDEF))
   NEWDEF)
 
 (defun byte-code-function-p (exp)
+  "T if OBJECT is a byte-compiled function object.
+\[emu-18.el; Emacs 19 emulating function]"
   (let* ((rest (cdr (cdr exp))) elt)
     (if (stringp (car rest))
         (setq rest (cdr rest))
@@ -94,7 +116,7 @@ Associates the function with the current load file, if any.
 
 (defun make-directory-internal (dirname)
   "Create a directory. One argument, a file name string.
-\[emu-18 Emacs 19 emulating function]"
+\[emu-18.el; Emacs 19 emulating function]"
   (if (file-exists-p dirname)
       (error "Creating directory: %s is already exist" dirname)
     (if (not (= (call-process "mkdir" nil nil nil dirname) 0))
@@ -105,7 +127,7 @@ Associates the function with the current load file, if any.
   "Create the directory DIR and any nonexistent parent dirs.
 The second (optional) argument PARENTS says whether
 to create parent directories if they don't exist.
-\[emu-18 Emacs 19 emulating function]"
+\[emu-18.el; Emacs 19 emulating function]"
   (let ((len (length dir))
 	(p 0) p1 path)
     (catch 'tag