From: tomo Date: Sun, 13 Jul 1997 17:58:26 +0000 (+0000) Subject: This commit was manufactured by cvs2svn to create tag 'XEmacs- X-Git-Tag: XEmacs-20_3-b19-Kyiv X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5fa0cbfe1b5c8c8beead60d5c7234517d2058977;p=elisp%2Fapel.git This commit was manufactured by cvs2svn to create tag 'XEmacs- 20_3-b19-Kyiv'. --- diff --git a/APEL-CFG b/APEL-CFG deleted file mode 100644 index 05edd35..0000000 --- a/APEL-CFG +++ /dev/null @@ -1,40 +0,0 @@ -;;; -*-Emacs-Lisp-*- -;;; -;;; $Id: APEL-CFG,v 0.2 1997-05-31 16:36:50 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 emu prefix [optional] -(setq EMU_PREFIX - (if (string-match "XEmacs" emacs-version) - "emu" - "")) - -;; Please specify prefix for ``apel'' [optional] -(setq APEL_PREFIX "apel") - - - -;;; @ optional settings -;;; - -(setq EMU_DIR - (expand-file-name - EMU_PREFIX - (install-detect-elisp-directory PREFIX nil 'version-specific))) - -;; 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 f2844bb..0000000 --- a/APEL-MK +++ /dev/null @@ -1,39 +0,0 @@ -;;; -*-Emacs-Lisp-*- -;;; -;;; $Id: APEL-MK,v 0.3 1997-05-31 16:39:06 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 "EMU-ELS") - (load-file "APEL-ELS") - (compile-elisp-modules emu-modules ".") - (compile-elisp-modules apel-modules ".") - ) - -(defun install-apel () - (compile-apel) - (config-apel) - (install-elisp-modules emu-modules "." EMU_DIR) - (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 5d29194..0000000 --- a/README.en +++ /dev/null @@ -1,246 +0,0 @@ -[README for APEL (English Version)] -by MORIOKA Tomohiko -$Id: README.en,v 1.2 1997-05-10 19:39:12 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 - - mule-caesar.el: ROT 13-47-48 Caesar rotation utility - - std11: RFC 822/STD 11 parser and utility - std11.el --- main module - std11-parse.el --- parser - - -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 (^_^). diff --git a/env.el b/env.el deleted file mode 100644 index c0e68f6..0000000 --- a/env.el +++ /dev/null @@ -1,114 +0,0 @@ -;;; env.el --- functions to manipulate environment variables. - -;; Copyright (C) 1991, 1994 Free Software Foundation, Inc. - -;; Maintainer: FSF -;; Keywords: processes, unix - -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Commentary: - -;; UNIX processes inherit a list of name-to-string associations from their -;; parents called their `environment'; these are commonly used to control -;; program options. This package permits you to set environment variables -;; to be passed to any sub-process run under Emacs. - -;;; Code: - -;; History list for environment variable names. -(defvar read-envvar-name-history nil) - -(defun read-envvar-name (prompt &optional mustmatch) - "Read environment variable name, prompting with PROMPT. -Optional second arg MUSTMATCH, if non-nil, means require existing envvar name. -If it is also not t, RET does not exit if it does non-null completion." - (completing-read prompt - (mapcar (function - (lambda (enventry) - (list (substring enventry 0 - (string-match "=" enventry))))) - process-environment) - nil mustmatch nil 'read-envvar-name-history)) - -;; History list for VALUE argument to setenv. -(defvar setenv-history nil) - -;;;###autoload -(defun setenv (variable &optional value unset) - "Set the value of the environment variable named VARIABLE to VALUE. -VARIABLE should be a string. VALUE is optional; if not provided or is -`nil', the environment variable VARIABLE will be removed. - -Interactively, a prefix argument means to unset the variable. -Interactively, the current value (if any) of the variable -appears at the front of the history list when you type in the new value. - -This function works by modifying `process-environment'." - (interactive - (if current-prefix-arg - (list (read-envvar-name "Clear environment variable: " 'exact) nil t) - (let* ((var (read-envvar-name "Set environment variable: " nil)) - (oldval (getenv var)) - newval - oldhist) - ;; Don't put the current value on the history - ;; if it is already there. - (if (equal oldval (car setenv-history)) - (setq oldval nil)) - ;; Now if OLDVAL is non-nil, we should add it to the history. - (if oldval - (setq setenv-history (cons oldval setenv-history))) - (setq oldhist setenv-history) - (setq newval (read-from-minibuffer (format "Set %s to value: " var) - nil nil nil 'setenv-history)) - ;; If we added the current value to the history, remove it. - ;; Note that read-from-minibuffer may have added the new value. - ;; Don't remove that! - (if oldval - (if (eq oldhist setenv-history) - (setq setenv-history (cdr setenv-history)) - (setcdr setenv-history (cdr (cdr setenv-history))))) - ;; Here finally we specify the args to give call setenv with. - (list var newval)))) - (if unset (setq value nil)) - (if (string-match "=" variable) - (error "Environment variable name `%s' contains `='" variable) - (let ((pattern (concat "\\`" (regexp-quote (concat variable "=")))) - (case-fold-search nil) - (scan process-environment) - found) - (if (string-equal "TZ" variable) - (set-time-zone-rule value)) - (while scan - (cond ((string-match pattern (car scan)) - (setq found t) - (if (eq nil value) - (setq process-environment (delq (car scan) process-environment)) - (setcar scan (concat variable "=" value))) - (setq scan nil))) - (setq scan (cdr scan))) - (or found - (if value - (setq process-environment - (cons (concat variable "=" value) - process-environment))))))) - -(provide 'env) - -;;; env.el ends here