tm 7.102.

diff --git a/ChangeLog b/ChangeLog
index 2bd2532..2681b88 100644 (file)
--- 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.
+
+\f
+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])
+
+\f
 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 (file)
--- 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.