Permalink
Browse files

APEL 7.1.

  • Loading branch information...
1 parent 0b30e9a commit 7d244615856d5aec30dd757decec63ae16ef5117 morioka committed Mar 11, 1998
Showing with 37 additions and 152 deletions.
  1. +23 −0 ChangeLog
  2. +1 −11 Makefile
  3. +4 −0 emu-19.el
  4. +7 −139 file-detect.el
  5. +1 −1 filename.el
  6. +1 −1 install.el
View
23 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.
+
+
1997-11-05 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* APEL: Version 4.2 was released.
View
12 Makefile
@@ -2,7 +2,7 @@
# $Id$
#
-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
View
4 emu-19.el
@@ -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)
View
146 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$
;; 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)
View
2 filename.el
@@ -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))
View
2 install.el
@@ -27,7 +27,7 @@
;;; Code:
(require 'emu)
-(require 'file-detect)
+(require 'path-util)
;;; @ compile Emacs Lisp files

0 comments on commit 7d24461

Please sign in to comment.