Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
APEL Development Repository for Wanderlust
Emacs Lisp Shell

Fetching latest commit…

Cannot retrieve the latest commit at this time

Failed to load latest commit information.
APEL-CFG
APEL-ELS
APEL-MK
ChangeLog
EMU-ELS
Makefile
README.en
README.ja
alist.el
apel-ver.el
atype.el
broken.el
calist.el
emu-mule.el
emu.el
env.el
file-detect.el
filename.el
ftp.in
install.el
inv-18.el
inv-19.el
inv-xemacs.el
invisible.el
localhook.el
mcharset.el
mcs-20.el
mcs-e20.el
mcs-ltn1.el
mcs-nemacs.el
mcs-om.el
mcs-xm.el
mcs-xmu.el
mule-caesar.el
path-util.el
pccl-20.el
pccl-om.el
pccl.el
pces-20.el
pces-e20.el
pces-e20_2.el
pces-nemacs.el
pces-om.el
pces-raw.el
pces-xfc.el
pces-xm.el
pces.el
pcustom.el
poe-18.el
poe-xemacs.el
poe.el
poem-e20.el
poem-e20_2.el
poem-e20_3.el
poem-ltn1.el
poem-nemacs.el
poem-om.el
poem-xm.el
poem.el
product.el
pym.el
richtext.el
static.el
time-stamp.el
timezone.el
tinycustom.el
tinyrich.el

README.en

[README for APEL (English Version)]

What's APEL?
============

  APEL stands for "A Portable Emacs Library".  It consists of
  following modules:

    poe.el --- emulation module mainly for basic functions and special
	       forms/macros of latest emacsen
      poe-xemacs.el  --- for XEmacs
      poe-18.el	     --- for Emacs 18/Nemacs
         env.el      --- env.el for Emacs 18
      localhook.el   --- hook functions for Emacs 19.28 and earlier.

    poem.el --- provide basic functions to write portable MULE
		programs
      poem-nemacs.el --- for Nemacs
      poem-ltn1.el   --- for Emacs 19/XEmacs without MULE
      poem-om.el     --- for MULE 1.*, 2.*
      poem-20.el     --- shared module between Emacs 20 and XEmacs-MULE
      poem-e20_2.el  --- for Emacs 20.1/20.2
      poem-e20_3.el  --- for Emacs 20.3
      poem-xm.el     --- for XEmacs-MULE

    invisible.el --- provide features about invisible region
      inv-18.el     --- for Emacs 18
      inv-19.el     --- for Emacs 19
      inv-xemacs.el --- for XEmacs

    mcharset.el --- provide MIME charset related features
      mcs-nemacs.el --- for Nemacs
      mcs-ltn1.el   --- for Emacs 19/XEmacs without MULE
      mcs-om.el     --- for MULE 1.*, 2.*
      mcs-20.el     --- shared module between Emacs 20 and XEmacs-MULE
      mcs-e20.el    --- for Emacs 20
      mcs-xm.el     --- for XEmacs-MULE
      mcs-xmu.el    --- for XEmacs-MULE to unify ISO646 characters

    static.el --- utility for static evaluation

    broken.el --- provide information of broken facilities of Emacs

    pccl.el --- utility to write portable CCL program
      pccl-om.el --- for MULE 2.*
      pccl-20.el --- for Emacs 20/XEmacs-21-MULE

    alist.el: utility for Association-list

    calist.el: utility for condition tree and
	       condition/situation-alist

    path-util.el: utility for path management 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

    emu.el --- (emu bundled in tm-7.106 compatibility module; it
	        required poe, poem and mcharset)
      emu-mule:	for MULE 1.*, 2.*
      richtext.el   --- text/richtext module
			for Emacs 19.29 or later,
			    XEmacs 19.14 or later
      tinyrich.el   --- text/richtext module for old emacsen

    pcustom.el --- provide portable custom environment

      tinycustom.el --- emulation module of custom.el


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 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 20.2 is specified, it
  will create the following directory tree:

	/usr/local/share/emacs/20.2/site-lisp/	--- emu
	/usr/local/share/emacs/site-lisp/apel/	--- APEL

  You can specify the lisp directory for Emacs Lisp programs,
  for example:

	% make install LISPDIR=~/elisp

  You can also specify the version specific lisp directory where the
  emu modules will be installed in, for example:

	% make install VERSION_SPECIFIC_LISPDIR=~/elisp

  If you would like to know what files belong to the emu modules or
  the apel modules, or where they will be installed in, for example,
  please type the following command.

	% make what-where LISPDIR=~/elisp VERSION_SPECIFIC_LISPDIR=~/elisp

  You can specify other optional settings by editing the file
  APEL-CFG.  Please read comments in it.

(c) install as a XEmacs package

  If you want to install to XEmacs package directory, please do
  following:

	% make install-package

  You can specify the emacs command name, for example

	% make install-package XEMACS=xemacs-21

  If `XEMACS=...' is omitted, XEMACS=xemacs is used.

  You can specify the package directory, for example:

	% make install PACKAGEDIR=~/.xemacs

  If `PACKAGEDIR=...' is omitted, the first existing package
  directory is used.

  Notice that XEmacs package system requires XEmacs 21.0 or later.


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 with Emacs 19.29 or
  later or Emacs 20.1/20.2, you can write subdirs.el for example:

  --------------------------------------------------------------------
  (normal-top-level-add-to-load-path '("apel"))
  --------------------------------------------------------------------

  If you are using Emacs 20.3 or later or XEmacs, there are no need to
  set up load-path with normal installation.


Version specific information
============================

For Emacs 18 users: "old byte-compiler" vs "new byte-compiler"

  In this package, we use compile-time evaluation heavily.
  Unfortunately, the byte-compiler bundled with Emacs 18 (the "old
  byte-compiler") does not have features such as `eval-when-compile'
  and `eval-and-compile', and our emulation version of these macros
  evaluate "compile-time evaluation" at load-time or at run-time!
  In addition, the "old byte-compiler" cannot compile top-level use of
  macros and leaves most of our code uncompiled.

  Therefore, we recommend you to use the "new" optimizing byte-compiler.
  It is the origin of byte-compiler bundled with Emacs 19 and later.

  Optimizing byte-compiler for Emacs 18 is available from the Emacs
  Lisp Archive and its mirrors.

  In Mule 1.* days, "contrib" package for Mule 1.* was distributed and
  it contained the "new byte-compiler" for Mule.  But, I think it is
  difficult to obtain this package now.

  AFAIK, the "new byte-compiler" for Emacs 18 is also bundled with SKK
  9.6.  It includes patch for Mule 1.*.


For Emacs 19.34 and XEmacs 19.14 users: "old custom" vs "new custom"

  "custom" library bundled with Emacs 19.32 - 19.34, XEmacs 19.14, and
  Gnus 5.2/5.3 is "old", its API is incompatible with "new custom"
  bundled with Emacs 20.1, XEmacs 19.15, or newer, and Gnus 5.4/5.5.

  "new custom" for Emacs 19.34 and XEmacs 19.15 - 20.2 is available
  from the following URL.

  ftp://ftp.dina.kvl.dk/pub/Staff/Per.Abrahamsen/custom/custom-1.9962.tar.gz

  (Note that "new custom" bundled with XEmacs 19.15 - 20.2, and Gnus
  5.4/5.5 is older than this version.)

  Before installing "new custom", you should check the following points.

    1) If you stick to Gnus 5.2/5.3 (or any other applications which
       use "old custom"), you should not install "new custom".

    2) If you use Mule (based on Emacs 19), you must apply this patch
       to "new custom".

----8<------8<------8<------8<------8<------8<------8<------8<----
--- custom-1.9962/cus-face.el~	Wed Mar  4 19:52:39 1998
+++ custom-1.9962/cus-face.el	Mon Mar  9 08:05:33 1998
@@ -96,7 +96,7 @@
       "Define a new FACE on all frames, ignoring X resources."
       (interactive "SMake face: ")
       (or (internal-find-face name)
-	  (let ((face (make-vector 8 nil)))
+	  (let ((face (make-vector face-vector-length nil)))
 	    (aset face 0 'face)
 	    (aset face 1 name)
 	    (let* ((frames (frame-list))
----8<------8<------8<------8<------8<------8<------8<------8<----

    3) Applications compiled with "custom" require the same version of
       "custom" at load-time (and run-time).  Therefore, if you use
       "new custom", you must always include "new custom" in your
       load-path.  The easiest way to achieve this is "subdirs.el";
       if you installed "new custom" in "/usr/local/share/emacs/19.34/
       site-lisp/custom/", put the following line to "/usr/local/share/
       emacs/19.34/site-lisp/subdirs.el".

       (normal-top-level-add-to-load-path '("custom"))


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.

path-util
---------

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
				`default-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-latest-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 APEL Mailing List:

	apel-en@m17n.org	(English)
	apel-ja@m17n.org	(Japanese)

  Via the APEL ML, you can report APEL bugs, obtain the latest release
  of APEL, and discuss future enhancements to APEL.  To join the APEL
  ML, send an empty e-mail to

	apel-en-ctl@m17n.org	(English)
	apel-ja-ctl@m17n.org	(Japanese)


Anonymous FTP
=============

  Latest release of APEL can be obtained from:

    ftp://ftp.m17n.org/pub/mule/apel/


CVS
===

  Development of APEL uses CVS.  So latest developing version is
  available at CVS.

(0) cvs login (first time only)

    % cvs -d :pserver:anonymous@chamonix.jaist.ac.jp:/hare/cvs/root \
	login

    CVS password: [CR] # NULL string

(1) checkout

    % cvs -d :pserver:anonymous@chamonix.jaist.ac.jp:/hare/cvs/root \
	checkout apel


  If you would like to join CVS based development, please send mail to

	cvs@chamonix.jaist.ac.jp

  with your account name and UNIX /etc/passwd style crypted password.
  We hope you will join the open development.
Something went wrong with that request. Please try again.