APEL 7.1.

diff --git a/ChangeLog b/ChangeLog
index 6a8d9bb..b4cd489 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,26 @@
+1997-11-08  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * APEL: Version 7.1 was released.
+
+1997-11-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * README.en (What's APEL?): Rename file-detect.el -> path-util.el.
+
+1997-11-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * install.el, filename.el (filename-filters): Use path-util.el
+       instead of file-detect.el.
+
+       * path-util.el, file-detect.el, APEL-ELS: Rename file-detect.el ->
+       path-util.el (file name should be less than 13 bytes).
+
+1997-11-06  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * emu-19.el (tl:make-overlay): New alias.
+       (tl:overlay-put): New alias.
+       (tl:overlay-buffer): New alias.
+
+\f
 1997-11-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * APEL: Version 4.2 was released.

diff --git a/Makefile b/Makefile
index 128a1a7..a49517a 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -1,8 +1,8 @@
 #
-# $Id: Makefile,v 0.15 1997/11/05 15:33:29 morioka Exp $
+# $Id: Makefile,v 4.1 1997/11/08 07:44:29 morioka Exp $
 #
 
-VERSION = 4.2
+VERSION = 7.1
 
 TAR    = tar
 RM     = /bin/rm -f
@@ -14,10 +14,6 @@ FLAGS   = -batch -q -no-site-file -l APEL-MK
 PREFIX = NONE
 LISPDIR = NONE
 
-EMU_FILES =    EMU-ELS *.el
-
-APEL_FILES =   README.?? Makefile APEL-MK APEL-CFG APEL-ELS *.el ChangeLog
-
 
 elc:
        $(EMACS) $(FLAGS) -f compile-apel
@@ -41,12 +37,6 @@ tar:
                $(TAR) cvzf apel-$(VERSION).tar.gz apel-$(VERSION)
        cd /tmp; $(RM) -r apel-$(VERSION)
        sed "s/VERSION/$(VERSION)/" < ftp.in > ftp
-#      -cd ..; mkdir apel-$(VERSION)
-#      -cd ../emu; $(CP) $(EMU_FILES) ../apel-$(VERSION)
-#      -cd ../emu; $(CP) ChangeLog ../apel-$(VERSION)/ChangeLog.emu
-#      -$(CP) $(APEL_FILES) ../apel-$(VERSION)
-#      cd ..; $(TAR) cvzf apel-$(VERSION).tar.gz apel-$(VERSION)
-#      cd ..; $(RM) -r apel-$(VERSION)
 
 release:
        -$(RM) /pub/GNU/elisp/apel/apel-$(VERSION).tar.gz

diff --git a/emu-19.el b/emu-19.el
index 6487d48..9207979 100644 (file)
--- a/emu-19.el
+++ b/emu-19.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-19.el,v 7.17 1997/11/05 15:10:44 morioka Exp $
+;; Version: $Id: emu-19.el,v 7.18 1997/11/06 10:38:03 morioka Exp $
 ;; Keywords: emulation, compatibility
 
 ;; This file is part of emu.
@@ -36,6 +36,10 @@
 ;;; @ for tm-7.106
 ;;;
 
+(defalias 'tl:make-overlay 'make-overlay)
+(defalias 'tl:overlay-put 'overlay-put)
+(defalias 'tl:overlay-buffer 'overlay-buffer)
+
 (make-obsolete 'tl:make-overlay 'make-overlay)
 (make-obsolete 'tl:overlay-put 'overlay-put)
 (make-obsolete 'tl:overlay-buffer 'overlay-buffer)

diff --git a/file-detect.el b/file-detect.el
index 577906a..ce6f9bf 100644 (file)
--- a/file-detect.el
+++ b/file-detect.el
@@ -1,10 +1,11 @@
-;;; file-detect.el --- Emacs Lisp file detection utility
+;;; file-detect.el --- Path management or file detection utility
 
 ;; Copyright (C) 1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: file-detect.el,v 4.2 1997/11/05 15:30:39 morioka Exp $
+;; Version: $Id: file-detect.el,v 7.1 1997/11/08 07:40:52 morioka Exp $
 ;; Keywords: file detection, install, module
+;; Status: obsoleted
 
 ;; This file is part of APEL (A Portable Emacs Library).
 
@@ -23,147 +24,14 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Code:
-
-(defvar default-load-path load-path
-  "*Base of `load-path'.
-It is used as default value of target path to search file or
-subdirectory under load-path.")
-
-;;;###autoload
-(defun add-path (path &rest options)
-  "Add PATH to `load-path' if it exists under `default-load-path'
-directories and it does not exist in `load-path'.
-
-You can use following PATH styles:
-       load-path relative: \"PATH/\"
-                       (it is searched from `defaul-load-path')
-       home directory relative: \"~/PATH/\" \"~USER/PATH/\"
-       absolute path: \"/HOO/BAR/BAZ/\"
-
-You can specify following OPTIONS:
-       'all-paths      search from `load-path'
-                       instead of `default-load-path'
-       'append         add PATH to the last of `load-path'"
-  (let ((rest (if (memq 'all-paths options)
-                 load-path
-               default-load-path))
-       p)
-    (if (and (catch 'tag
-              (while rest
-                (setq p (expand-file-name path (car rest)))
-                (if (file-directory-p p)
-                    (throw 'tag p)
-                  )
-                (setq rest (cdr rest))
-                ))
-            (not (member p load-path))
-            )
-       (setq load-path
-             (if (memq 'append options)
-                 (append load-path (list p))
-               (cons p load-path)
-               ))
-      )))
-
-;;;###autoload
-(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'.
+;;; Commentary:
 
-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)
-      )))
-
-;;;###autoload
-(defun get-latest-path (pattern &optional all-paths)
-  "Return latest directory in default-load-path
-which is matched to regexp PATTERN.
-If optional argument ALL-PATHS is specified,
-it is searched from all of load-path instead of default-load-path."
-  (catch 'tag
-    (let ((paths (if all-paths
-                   load-path
-                 default-load-path))
-         dir)
-      (while (setq dir (car paths))
-       (if (and (file-exists-p dir)
-                (file-directory-p dir)
-                )
-           (let ((files (sort (directory-files dir t pattern t)
-                              (function file-newer-than-file-p)))
-                 file)
-             (while (setq file (car files))
-               (if (file-directory-p file)
-                   (throw 'tag file)
-                 )
-               (setq files (cdr files))
-               )))
-       (setq paths (cdr paths))
-       ))))
-
-;;;###autoload
-(defun file-installed-p (file &optional paths)
-  "Return absolute-path of FILE if FILE exists in PATHS.
-If PATHS is omitted, `load-path' is used."
-  (if (null paths)
-      (setq paths load-path)
-    )
-  (catch 'tag
-    (let (path)
-      (while paths
-       (setq path (expand-file-name file (car paths)))
-       (if (file-exists-p path)
-           (throw 'tag path)
-         )
-       (setq paths (cdr paths))
-       ))))
-
-;;;###autoload
-(defvar exec-suffix-list '("")
-  "*List of suffixes for executable.")
-
-;;;###autoload
-(defun exec-installed-p (file &optional paths suffixes)
-  "Return absolute-path of FILE if FILE exists in PATHS.
-If PATHS is omitted, `exec-path' is used.
-If suffixes is omitted, `exec-suffix-list' is used."
-  (or paths
-      (setq paths exec-path)
-      )
-  (or suffixes
-      (setq suffixes exec-suffix-list)
-      )
-  (catch 'tag
-    (while paths
-      (let ((stem (expand-file-name file (car paths)))
-           (sufs suffixes)
-           )
-       (while sufs
-         (let ((file (concat stem (car sufs))))
-           (if (file-exists-p file)
-               (throw 'tag file)
-             ))
-         (setq sufs (cdr sufs))
-         ))
-      (setq paths (cdr paths))
-      )))
-
-;;;###autoload
-(defun module-installed-p (module &optional paths)
-  "Return t if module is provided or exists in PATHS.
-If PATHS is omitted, `load-path' is used."
-  (or (featurep module)
-      (exec-installed-p (symbol-name module) load-path '(".elc" ".el"))
-      ))
+;;     This file is existed only for compatibility.  Please use
+;;     path-util.el instead of this file.
 
+;;; Code:
 
-;;; @ end
-;;;
+(require 'path-util)
 
 (provide 'file-detect)
 

diff --git a/filename.el b/filename.el
index 9ea69bb..ba7ffe1 100644 (file)
--- a/filename.el
+++ b/filename.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1996,1997 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: filename.el,v 1.6 1997/03/20 06:00:33 morioka Exp $
+;; Version: $Id: filename.el,v 2.1 1997/11/06 15:50:53 morioka Exp $
 ;; Keywords: file name, string
 
 ;; This file is part of APEL (A Portable Emacs Library).
@@ -65,7 +65,7 @@ List of characters represents characters not allowed as file-name.")
                   filename-maybe-truncate-by-size
                   filename-eliminate-bottom-low-lines
                   )))
-    (require 'file-detect)
+    (require 'path-util)
     (if (exec-installed-p "kakasi")
        (cons 'filename-japanese-to-roman-string filters)
       filters))

diff --git a/install.el b/install.el
index d683f78..70a1714 100644 (file)
--- a/install.el
+++ b/install.el
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1996/08/18
-;; Version: $Id: install.el,v 4.1 1997/11/04 09:05:22 morioka Exp $
+;; Version: $Id: install.el,v 4.2 1997/11/06 15:52:08 morioka Exp $
 ;; Keywords: install, byte-compile, directory detection
 
 ;; This file is part of APEL (A Portable Emacs Library).
@@ -27,7 +27,7 @@
 ;;; Code:
 
 (require 'emu)
-(require 'file-detect)
+(require 'path-util)
 
 
 ;;; @ compile Emacs Lisp files