From: tomo Date: Fri, 9 May 1997 02:48:23 +0000 (+0000) Subject: This commit was manufactured by cvs2svn to create branch 'tomo'. X-Git-Tag: tm5_21_6~2 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=eee3b0fa0954912bf69baf3984512dde0272c1e5;p=elisp%2Fapel.git This commit was manufactured by cvs2svn to create branch 'tomo'. --- diff --git a/APEL-CFG b/APEL-CFG deleted file mode 100644 index d72b478..0000000 --- a/APEL-CFG +++ /dev/null @@ -1,29 +0,0 @@ -;;; -*-Emacs-Lisp-*- -;;; -;;; $Id: APEL-CFG,v 0.1 1997-03-20 02:03:32 morioka Exp $ -;;; - -;;; @ Please specify prefix of install directory. -;;; - -;; Please specify install path prefix. -;; If it is omitted, shared directory (maybe /usr/local is used). -(defvar PREFIX install-prefix) -;;(setq PREFIX "~/") - -;; Please specify prefix for ``apel'' [optional] -(setq APEL_PREFIX "apel") - - - -;;; @ optional settings -;;; - -;; It is generated by automatically. Please set variable `PREFIX'. -;; If you don't like default directory tree, please set it. -(defvar LISPDIR (install-detect-elisp-directory PREFIX)) -;; (setq install-default-elisp-directory "~/lib/emacs/lisp") - -(setq APEL_DIR (expand-file-name APEL_PREFIX LISPDIR)) - -;;; APEL-CFG ends here diff --git a/APEL-ELS b/APEL-ELS deleted file mode 100644 index bb34bd6..0000000 --- a/APEL-ELS +++ /dev/null @@ -1,10 +0,0 @@ -;;; -*-Emacs-Lisp-*- -;;; -;;; $Id: APEL-ELS,v 1.5 1997-05-09 01:23:44 morioka Exp $ -;;; - -(setq apel-modules '(alist atype file-detect filename install - std11 std11-parse - mule-caesar)) - -;;; APEL-ELS ends here diff --git a/APEL-MK b/APEL-MK deleted file mode 100644 index 61902fe..0000000 --- a/APEL-MK +++ /dev/null @@ -1,37 +0,0 @@ -;;; -*-Emacs-Lisp-*- -;;; -;;; $Id: APEL-MK,v 0.2 1997-03-20 02:12:39 morioka Exp $ -;;; - -(defun config-apel () - (let (prefix) - (setq prefix (car command-line-args-left)) - (and prefix - (not (string-equal "NONE" prefix)) - (progn - (defvar PREFIX prefix) - (setq command-line-args-left (cdr command-line-args-left)) - )) - (load-file "APEL-CFG") - (or (boundp 'apel-modules) - (load-file "APEL-ELS") - ) - (princ (format "PREFIX=%s\n" PREFIX)) - )) - -(defun compile-apel () - (add-to-list 'load-path (expand-file-name "../emu")) - (add-to-list 'load-path ".") - (require 'install) - (load-file "APEL-ELS") - (compile-elisp-modules apel-modules ".") - ) - -(defun install-apel () - (compile-apel) - (config-apel) - (compile-elisp-modules apel-modules ".") - (install-elisp-modules apel-modules "." APEL_DIR) - ) - -;;; APEL-MK ends here diff --git a/EMU-CFG b/EMU-CFG deleted file mode 100644 index 4eeb9b5..0000000 --- a/EMU-CFG +++ /dev/null @@ -1,42 +0,0 @@ -;;; -*-Emacs-Lisp-*- -;;; -;;; $Id: EMU-CFG,v 0.0 1997-03-14 07:16:00 morioka Exp $ -;;; - -(setq load-path (append - (mapcar (function - (lambda (path) - (expand-file-name path default-directory) - )) - '("." "../apel" "../tl") - ) - load-path)) - -(require 'install) - - -;;; @ Please specify prefix of install directory. -;;; - -;; Please specify install path prefix. -;; If it is omitted, shared directory (maybe /usr/local is used). -(defvar PREFIX install-prefix) -;;(setq PREFIX "~/") - -;; Please specify emu prefix [optional] -(setq EMU_PREFIX - (if (string-match "XEmacs" emacs-version) - "emu" - "")) - - - -;;; @ optional settings -;;; - -(setq EMU_DIR - (expand-file-name - EMU_PREFIX - (install-detect-elisp-directory PREFIX nil 'version-specific))) - -;;; EMU-CFG ends here diff --git a/EMU-ELS b/EMU-ELS deleted file mode 100644 index 8769fe2..0000000 --- a/EMU-ELS +++ /dev/null @@ -1,48 +0,0 @@ -;;; -*-Emacs-Lisp-*- -;;; -;;; $Id: EMU-ELS,v 1.2 1997-03-14 07:17:34 morioka Exp $ -;;; - -(setq emu-modules - (cons - 'emu - (if (or running-emacs-19_29-or-later - running-xemacs-19_14-or-later) - '(richtext) - '(tinyrich) - ))) - -(setq emu-modules - (nconc - (cond (running-mule-merged-emacs - '(emu-e20) - ) - (running-xemacs-with-mule - '(emu-x20) - ) - ((boundp 'MULE) - '(emu-mule) - ) - ((boundp 'NEMACS) - '(emu-nemacs) - ) - (t - '(emu-e19) - )) - emu-modules)) - -(setq emu-modules - (nconc - (cond (running-emacs-18 - '(emu-18 env) - ) - (running-xemacs - '(emu-xemacs) - ) - (t - '(emu-19) - ) - ) - emu-modules)) - -;;; EMU-ELS ends here diff --git a/EMU-MK b/EMU-MK deleted file mode 100644 index 378f30f..0000000 --- a/EMU-MK +++ /dev/null @@ -1,30 +0,0 @@ -;;; -*-Emacs-Lisp-*- -;;; -;;; $Id: EMU-MK,v 0.0 1997-03-14 07:17:53 morioka Exp $ -;;; - -(defun config-emu () - (let (prefix) - (setq prefix (car command-line-args-left)) - (and prefix - (not (string-equal "NONE" prefix)) - (progn - (defvar PREFIX prefix) - (setq command-line-args-left (cdr command-line-args-left)) - )) - (load-file "EMU-CFG") - (load-file "EMU-ELS") - (princ (format "PREFIX=%s\n" PREFIX)) - )) - -(defun compile-emu () - (config-emu) - (compile-elisp-modules emu-modules ".") - ) - -(defun install-emu () - (config-emu) - (install-elisp-modules emu-modules "./" EMU_DIR) - ) - -;;; EMU-MK ends here diff --git a/README.en b/README.en deleted file mode 100644 index 1c7bbd7..0000000 --- a/README.en +++ /dev/null @@ -1,240 +0,0 @@ -[README for APEL (English Version)] -by MORIOKA Tomohiko -$Id: README.en,v 1.1 1997-03-20 06:03:51 morioka Exp $ - -What's APEL -=========== - - APEL stands for "A Portable Emacs Library". It consists of - following modules: - - emu: A package to fill incompatibilities of emacsen - emu.el --- main module - About mule API: - emu-nemacs.el --- for NEmacs - emu-e19.el --- for Emacs 19 or XEmacs without mule - emu-mule.el --- for MULE 2.3 - emu-e20.el --- for Emacs/mule (Emacs 20, MULE 3) - emu-x20.el --- for XEmacs/mule - About other API - emu-18.el --- for Emacs 18 - emu-19.el --- for Emacs 19 or later - emu-xemacs.el --- for XEmacs - env.el --- env.el for Emacs 18 - richtext.el --- text/richtext module - for Emacs 19.29 or later, - XEmacs 19.14 or later - tinyrich.el --- text/richtext module for old emacsen - - alist.el: utility for Association-list - - atype.el: utility for atype - - file-detect.el: load-path or file-detection - - filename.el: utility to make file-name - - install.el: utility to install emacs-lisp package - - -Installation -============ - -(a) run in expanded place - - If you don't want to install other directories, please do only - following: - - % make - - You can specify the emacs command name, for example - - % make install EMACS=xemacs - - If `EMACS=...' is omitted, EMACS=emacs is used. - -(b) make install - - If you want to install other directories, please do following: - - % make install - - You can specify the emacs command name, for example - - % make install EMACS=xemacs - - If `EMACS=...' is omitted, EMACS=emacs is used. - - You can specify the prefix of the directory tree for Emacs Lisp - programs and shell scripts, for example: - - % make install PREFIX=~/ - - If `PREFIX=...' is omitted, the prefix of the directory tree of the - specified emacs command is used (perhaps /usr/local). - - For example, if PREFIX=/usr/local and EMACS 19.34 is specified, it - will create the following directory tree: - - /usr/local/share/emacs/19.34/site-lisp/ --- emu - /usr/local/share/emacs/site-lisp/apel/ --- APEL - - You can specify other optional settings by editing the file - APEL-CFG. Please read comments in it. - - -load-path (for Emacs or MULE) -============================= - - If you are using Emacs or Mule, please add directory of apel to - load-path. If you install by default setting, you can write - subdirs.el for example: - - -------------------------------------------------------------------- - (normal-top-level-add-to-load-path '("apel")) - -------------------------------------------------------------------- - - If you are using XEmacs, there are no need of setting about - load-path. - - -How to use -========== - -alist ------ - -Function put-alist (ITEM VALUE ALIST) - - Modify ALIST to set VALUE to ITEM. If there is a pair whose car is - ITEM, replace its cdr by VALUE. If there is not such pair, create - new pair (ITEM . VALUE) and return new alist whose car is the new - pair and cdr is ALIST. - -Function del-alist (ITEM ALIST) - - If there is a pair whose key is ITEM, delete it from ALIST. - -Function set-alist (SYMBOL ITEM VALUE) - - Modify a alist indicated by SYMBOL to set VALUE to ITEM. - - Ex. (set-alist 'auto-mode-alist "\\.pln$" 'text-mode) - -Function modify-alist (MODIFIER DEFAULT) - - Modify alist DEFAULT into alist MODIFIER. - -Function set-modified-alist (SYMBOL MODIFIER) - - Modify a value of a SYMBOL into alist MODIFIER. The SYMBOL should - be alist. If it is not bound, its value regard as nil. - -file-detect ------------ - -Function 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: "/FOO/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' - -Function add-latest-path (PATTERN &optional ALL-PATHS) - - Add latest path matched by regexp PATTERN to `load-path' if it - exists under `default-load-path' directories and it does not exist - in `load-path'. - - For example, if there is bbdb-1.50 and bbdb-1.51 under site-lisp, - and if bbdb-1.51 is newer than bbdb-1.50, and site-lisp is - /usr/local/share/emacs/site-lisp, - - (add-path "bbdb") - - it adds "/usr/local/share/emacs/site-lisp/bbdb-1.51" to top of - `load-path'. - - If optional argument ALL-PATHS is specified, it is searched from all - of `load-path' instead of `default-load-path'. - -Function 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. - - Ex. (let ((gnus-path (get-latest-path "gnus"))) - (add-path (expand-file-name "lisp" gnus-path)) - (add-to-list 'Info-default-directory-list - (expand-file-name "texi" gnus-path)) - ) - -Function file-installed-p (FILE &optional PATHS) - - Return absolute-path of FILE if FILE exists in PATHS. If PATHS is - omitted, `load-path' is used. - -Function 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. - -Function module-installed-p (MODULE &optional PATHS) - - Return non-nil if module is provided or exists in PATHS. If PATHS - is omitted, `load-path' is used. - -filename --------- - -Function replace-as-filename (string) - - Return safety file-name from STRING. - - It refers variable `filename-filters'. It is list of functions for - file-name filter. Default filter refers following variables: - - Variable filename-limit-length - - Limit size of file-name. - - Variable filename-replacement-alist - - Alist list of characters vs. string as replacement. List of - characters represents characters not allowed as file-name. - - -Bug reports ------------ - - If you write bug-reports and/or suggestions for improvement, please - send them to the tm Mailing List: - - bug-tm-en@chamonix.jaist.ac.jp (English) - bug-tm-ja@chamonix.jaist.ac.jp (Japanese) - - Via the tm ML, you can report tm bugs, obtain the latest release of - tm, and discuss future enhancements to tm. To join the tm ML, send - e-mail to - - tm-ja-admin@chamonix.jaist.ac.jp (Japanese) - tm-en-admin@chamonix.jaist.ac.jp (English) - - Since the user registration is done manually, please write the mail - body in human-recognizable language (^_^).