From: morioka Date: Wed, 11 Mar 1998 13:13:44 +0000 (+0000) Subject: APEL 7.1. X-Git-Tag: tomo-199811302358~1 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7fdc17116c1466adab128001ec15318b66766e07;p=elisp%2Fapel.git APEL 7.1. --- diff --git a/ChangeLog b/ChangeLog index 6a8d9bb..b4cd489 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,26 @@ +1997-11-08 MORIOKA Tomohiko + + * APEL: Version 7.1 was released. + +1997-11-06 MORIOKA Tomohiko + + * README.en (What's APEL?): Rename file-detect.el -> path-util.el. + +1997-11-06 MORIOKA Tomohiko + + * 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 + + * emu-19.el (tl:make-overlay): New alias. + (tl:overlay-put): New alias. + (tl:overlay-buffer): New alias. + + 1997-11-05 MORIOKA Tomohiko * APEL: Version 4.2 was released. diff --git a/Makefile b/Makefile index 128a1a7..a49517a 100644 --- 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 --- a/emu-19.el +++ b/emu-19.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko -;; 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 --- 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 -;; 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 --- a/filename.el +++ b/filename.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1996,1997 MORIOKA Tomohiko ;; Author: MORIOKA Tomohiko -;; 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 --- a/install.el +++ b/install.el @@ -4,7 +4,7 @@ ;; Author: MORIOKA Tomohiko ;; 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