From d2a853fb1e2a3a0d55e3680ade60855ec83a9cba Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Tue, 10 Mar 1998 11:28:24 +0000
Subject: [PATCH] tm 7.102.

---
 ChangeLog      |   37 +++++++++++++++++++++++++++++++++++++
 file-detect.el |   16 ++++++++++++++--
 2 files changed, 51 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 2bd2532..2681b88 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,40 @@
+1997-01-21  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* tl: Version 7.61.16 was released.
+
+Sat Jan 18 09:48:31 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* char-util.el (char-to-byte-list): modified for GNU MULE
+ 	19.34.91.
+
+Fri Jan 17 05:14:24 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* TL-ELS (tl-modules): Add `char-util' and `char-table' for
+ 	XEmacs/mule.
+
+Fri Jan 17 03:09:02 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* char-table.el (show-char-table): modified for GNU MULE 19.34.91.
+
+Tue Jan 14 02:37:32 1997  Martin Buchholz   <mrb@Eng.Sun.COM>
+
+	* tl-str.el: Add DOC-string of autoload `replace-as-filename'.
+
+Sat Jan 11 17:19:50 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* file-detect.el (add-latest-path): New function.
+
+
+Wed Jan  1 11:00:25 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* tl: Version 7.61.17 was released.
+
+Wed Dec 28 13:57:22 1996  Martin Buchholz   <mrb@Eng.Sun.COM>
+
+	* mk-tl: Use variable `default-directory' instead of `(getenv
+ 	"PWD")'. (cf. [tm-en:1084])
+
+
 Mon Dec 23 14:57:21 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* tl: Version 7.61.16 was released.
diff --git a/file-detect.el b/file-detect.el
index d5b6bb9..e7798ef 100644
--- a/file-detect.el
+++ b/file-detect.el
@@ -1,10 +1,10 @@
 ;;; file-detect.el --- Emacs Lisp file detection utility
 
-;; Copyright (C) 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Version:
-;;	$Id: file-detect.el,v 1.6 1996/08/21 11:43:09 morioka Exp $
+;;	$Id: file-detect.el,v 2.0 1997/01/11 17:19:50 morioka Exp $
 ;; Keywords: install, module
 
 ;; This file is part of tl (Tiny Library).
@@ -65,6 +65,18 @@ You can specify following OPTIONS:
 		))
       )))
 
+(defun add-latest-path (pattern &optional all-paths)
+  "Add latest path matched by PATTERN to `load-path'
+if it exists under `default-load-path' directories
+and it does not exist in `load-path'.
+
+If optional argument ALL-PATHS is specified, it is searched from all
+of load-path instead of default-load-path. [file-detect.el]"
+  (let ((path (get-latest-path pattern all-paths)))
+    (if path
+	(add-to-list 'load-path path)
+      )))
+
 (defun get-latest-path (pat &optional all-paths)
   "Return latest directory in default-load-path
 which is matched to regexp PAT.
-- 
1.7.10.4