Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Sync up to APEL 10.3.

  • Loading branch information...
commit dc8c5311825b4cbb48ba2aadf24e1fe95a04102c 1 parent 785df92
shuhei authored
View
82 APEL-MK
@@ -49,45 +49,6 @@
(defvar EMU_DIR nil) ; VERSION_SPECIFIC_LISPDIR/EMU_PREFIX
-;;; Utilities. (XXX: should be moved to install.el ?)
-
-(defun install-just-print-p ()
- (let ((flag (getenv "MAKEFLAGS"))
- (case-fold-search nil))
- (princ (format "%s\n" flag))
- (if flag
- (string-match "^\\(\\(--[^ ]+ \\)+-\\|[^ =-]\\)*n" flag))))
-
-(defun install-update-package-files (package dir &optional just-print)
- (cond
- (just-print
- (princ (format "Updating autoloads in directory %s..\n\n" dir))
-
- (princ (format "Processing %s\n" dir))
- (princ "Generating custom-load.el...\n\n")
-
- (princ (format "Compiling %s...\n"
- (expand-file-name "auto-autoloads.el" dir)))
- (princ (format "Wrote %s\n"
- (expand-file-name "auto-autoloads.elc" dir)))
-
- (princ (format "Compiling %s...\n"
- (expand-file-name "custom-load.el" dir)))
- (princ (format "Wrote %s\n"
- (expand-file-name "custom-load.elc" dir))))
- (t
- (setq autoload-package-name package)
-
- (let ((command-line-args-left (list dir)))
- (batch-update-directory))
-
- (let ((command-line-args-left (list dir)))
- (Custom-make-dependencies))
-
- (byte-compile-file (expand-file-name "auto-autoloads.el" dir))
- (byte-compile-file (expand-file-name "custom-load.el" dir)))))
-
-
;;; Configure, Compile, and Install.
(defun config-apel ()
@@ -157,11 +118,12 @@
(compile-elisp-modules emu-modules-to-compile ".")
(compile-elisp-modules apel-modules "."))
-(defun install-apel ()
+(defun install-apel (&optional just-print)
(config-apel)
- (let ((just-print (install-just-print-p)))
- (install-elisp-modules emu-modules "." EMU_DIR just-print)
- (install-elisp-modules apel-modules "." APEL_DIR just-print)))
+ (or just-print
+ (setq just-print (install-just-print-p)))
+ (install-elisp-modules emu-modules "." EMU_DIR just-print)
+ (install-elisp-modules apel-modules "." APEL_DIR just-print))
;; For XEmacs package system.
(defun config-apel-package ()
@@ -224,21 +186,23 @@
(install-update-package-files "apel" dir just-print)))
(defun what-where-apel ()
- (config-apel)
- (princ (format "
-The files that belong to the EMU modules:
- %s
- -> %s
-
-The files that belong to the APEL modules:
- %s
- -> %s
-
-Do `make elc', `make install', `make package', or `make install-package'.
-"
- (mapconcat (function symbol-name) emu-modules ", ")
- EMU_DIR
- (mapconcat (function symbol-name) apel-modules ", ")
- APEL_DIR)))
+ (install-apel 'just-print)
+ ;; (config-apel)
+;;; (princ (format "
+;;; The files that belong to the EMU modules:
+;;; %s
+;;; -> %s
+
+;;; The files that belong to the APEL modules:
+;;; %s
+;;; -> %s
+
+;;; Do `make elc', `make install', `make package', or `make install-package'.
+;;; "
+;;; (mapconcat (function symbol-name) emu-modules ", ")
+;;; EMU_DIR
+;;; (mapconcat (function symbol-name) apel-modules ", ")
+;;; APEL_DIR))
+ )
;;; APEL-MK ends here
View
245 ChangeLog
@@ -1,3 +1,248 @@
+2000-12-30 NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
+
+ * APEL: Version 10.3 released.
+ * apel-ver.el (apel-ver): Change APEL version to 10.3.
+
+ * Makefile : Apply patch from TAKAHASHI Kaoru <kaoru@se.uec.ac.jp>
+ of Message-Id: <86vgs2s3cp.wl@tomoko.nantnaq.kaisei.org>.
+
+2000-12-28 Tanaka Akira <akr@m17n.org>
+
+ * pccl-20.el (ccl-compat): new advice for `make-coding-system' of
+ XEmacs to handle Emacs style CCL coding system definition.
+
+2000-12-28 Kenichi Handa <handa@etl.go.jp>
+
+ * static.el: Doc-string fixed.
+
+2000-12-28 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * mcharset.el (default-mime-charset-for-write): Use
+ `mime-charset-p' instead of `find-coding-system'; don't require
+ `pces'.
+
+ * mcs-nemacs.el, mcs-ltn1.el, mcs-20.el (mime-charset-p): New
+ alias.
+
+2000-12-26 NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
+
+ * README.en: Change major mode to outline-mode.
+ (What's APEL?): Add description about pym.el, pces, time-stamp.el,
+ timezone.el, and product.el.
+ (run in expanded place): Add a reference to `make.bat (for MS-DOS
+ family)'.
+
+ * README.ja: Change major mode to outline-mode.
+ (What's APEL?): Add description about pym.el, pces, time-stamp.el,
+ timezone.el, and product.el.
+
+2000-12-24 NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
+
+ * poe.el (minor-mode-overriding-map-alist): Remove the filename
+ poe.el from doc string.
+
+ * poe-18.el (current-time-world-timezones): Remove the filename
+ poe-18.el from doc string.
+ (current-time-local-timezone): Ditto.
+ (buffer-undo-list): Ditto.
+ (auto-fill-function): Ditto.
+ (unread-command-event): Ditto.
+ (unread-command-events): Ditto.
+ (minor-mode-map-alist): Ditto.
+
+ * README.en ((d) make.bat (for MS-DOS family)): New section.
+ * README.ja ((d) make.bat $B$rMxMQ$9$k(B (MS-DOS $B7O(B OS $B$N>l9g(B)):
+ Ditto.
+
+2000-12-22 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * mcs-e20.el: Require `pces'.
+
+2000-12-22 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * timezone.el (timezone-time-from-absolute): Use `%' instead of
+ `mod'.
+
+2000-12-21 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * poe-18.el (numberp, mod): Removed.
+
+2000-12-21 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * mcharset.el (default-mime-charset-for-write): Require `pces' for
+ `find-coding-system'.
+
+2000-12-21 NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
+
+ * poe-18.el (minor-mode-alist): Removed.
+ (minor-mode-overriding-map-alist): Move to poe.el.
+
+2000-12-20 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * APEL-MK (install-apel): Add new optional argument `just-print'.
+ (what-where-apel): New implementation [use `install-apel' with
+ `just-print' mode].
+
+2000-12-20 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * APEL-MK (install-just-print-p): Moved to install.el.
+ (install-update-package-files): Moved to install.el.
+
+ * install.el (install-update-package-files): New function [moved
+ from APEL-MK].
+ (install-just-print-p): Likewise.
+
+2000-12-15 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * mcs-xm.el: Don't require `poem' instead of `mcs-20'.
+
+ * mcs-e20.el: Don't require mcs-20.
+
+ * mcs-20.el: - Don't require `poem'.
+ - Require `custom' instead of `pcustom'.
+ - Require mcs-xm for XEmacs-Mule.
+ - Require mcs-e20 for GNU Emacs 20.1 or later.
+ (default-mime-charset): Change initial value to `x-unknown'.
+
+ * mcharset.el: Require mcs-20 if running with XEmacs-Mule and GNU
+ Emacs 20.1 or later.
+
+2000-12-19 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * poe.el (current-fill-column): New emulating function.
+ (current-left-margin): New emulating function.
+
+ * poe-18.el (numberp): Use `defalias-maybe' instead of `defalias'.
+ (mod): Ditto.
+
+2000-12-20 NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
+
+ * poe-18.el (set-frame-height): Typo fixed.
+ (read-from-minibuffer): Do not run `minibuffer-setup-hook' and
+ `minibuffer-exit-hook'.
+ (minibuffer-setup-hook): Comment out.
+ (minibuffer-exit-hook): Ditto.
+
+2000-12-19 NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
+
+ * make.bat: Do not echo.
+
+ * poe-18.el (set-frame-heigth): Bug fixed.
+
+2000-12-16 NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
+
+ * poe-18.el (frame-width): New function.
+ (frame-height): Ditto.
+ (set-frame-width): Ditto.
+ (set-frame-heigth): Ditto.
+ (read-from-minibuffer): Run `minibuffer-setup-hook' and
+ `minibuffer-exit-hook'.
+ (buffer-undo-list): Declared with `defvar-maybe' and add doc
+ string.
+ (auto-fill-function): Add doc string.
+ (unread-command-event): Ditto.
+ (unread-command-events): Ditto.
+ (minibuffer-setup-hook): New variable.
+ (minibuffer-exit-hook): Ditto.
+ (minor-mode-map-alist): Ditto.
+ (minor-mode-alist): Ditto.
+ (minor-mode-overriding-map-alist): Ditto.
+
+2000-12-15 NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
+
+ * make.bat (listing): Bug fixed.
+
+ * README.en: Add URL that can be used to getting SKK 10.62a with
+ the new byte compiler for Emacs 18.
+ * README.ja: Ditto.
+
+2000-12-15 TAKAHASHI Kaoru <kaoru@kaisei.org>
+
+ * Makefile (tar): Remove .cvsignore. Use `cvs tag -R' instead of
+ `cvs tag -RF'.
+
+2000-12-15 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * poe-18.el (buffer-disable-undo): Define it as a function to make
+ an argument optional instead of the use of `defalias' to
+ `buffer-flush-undo'.
+
+2000-12-14 Daiki Ueno <ueno@unixuser.org>
+
+ * alist.el (del-alist): Simplified.
+
+2000-12-14 Mikio Nakajima <minakaji@osaka.email.ne.jp>
+
+ * pym.el (static-if): Put t on edebug spec instead of if.
+
+2000-12-13 Kenichi Handa <handa@etl.go.jp>
+
+ * alist.el: Fix and add DOCs and comments; fix coding style.
+
+2000-04-26 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * mcs-xm.el (charsets-mime-charset-alist): Add coded-charset
+ `japanese-jisx0208-1990' to MIME-charset `iso-2022-jp' and
+ `iso-2022-jp-2' in UTF-2000; add new MIME-charset `iso-2022-jp-3'.
+
+2000-11-26 Mikio Nakajima <minakaji@osaka.email.ne.jp>
+
+ * make.bat: New file.
+ * .cvsignore: Ditto.
+
+2000-11-09 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * path-util.el (add-path): Check for both "path" and "path/".
+
+2000-10-06 Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+
+ * poe.el (require): Update `current-load-list'.
+
+2000-10-10 Keiichi Suzuki <keiichi@mdcnet.co.jp>
+
+ * product.el (product-version-as-string): New function.
+ (product-string-1): Use `product-version-as-string'.
+
+2000-08-10 MORIOKA Tomohiko <tomo@m17n.org>
+
+ * poem-e20_3.el: Require `pym'.
+
+2000-07-12 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * alist.el (vassoc): New function [to be compatible with XEmacs
+ 21.2.32 or later].
+
+2000-05-25 Tanaka Akira <akr@m17n.org>
+
+ * README.en, README.ja: Update for CVS via SSH.
+
+2000-05-24 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * pces-raw.el (encode-coding-string, decode-coding-string): Return
+ a copy of string.
+
+2000-04-25 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * EMU-ELS (emu-modules): Don't include `pccl-20' for XEmacs 20 and
+ earlier.
+
+2000-03-25 Mikio Nakajima <minakaji@osaka.email.ne.jp>
+
+ * pym.el: Define edebug specs for `static-if', `static-when',
+ `static-unless', `static-condition-case', `static-defconst' and
+ `static-cond'.
+
+2000-03-08 Akihiro Arisawa <ari@atesoft.advantest.co.jp>
+
+ * poe.el (format-time-string): Fix problem when `format' contains
+ "%d" or "%D".
+
+2000-03-04 Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+
+ * poe.el (remassq,remassoc,remrassoc): Rewrite.
+ (remrassq): New function.
+
+
2000-03-01 Yuuichi Teranishi <teranisi@gohome.org>
* APEL: Version 10.2 released.
View
14 EMU-ELS
@@ -50,20 +50,24 @@
;; pccl modules; pccl modules depend on broken.
(cond
- ((featurep 'mule)
+ ((featurep 'xemacs)
(cond
;; XEmacs 21 w/ mule.
- ((and (featurep 'xemacs)
+ ((and (featurep 'mule)
(>= emacs-major-version 21))
'(pccl-20 pccl))
+ (t
+ '(pccl))))
+ ((featurep 'mule)
+ (cond
;; Emacs 20.
((>= emacs-major-version 20)
'(pccl-20 pccl))
+ ;; Mule 1.* and 2.*.
(t
- ;; Mule 1.* and 2.*.
'(pccl-om pccl))))
- (t
- '(pccl)))
+ (t
+ '(pccl)))
;; pces modules; pces modules depend on poe.
(cond
View
8 Makefile
@@ -2,7 +2,7 @@
# Makefile for APEL.
#
-VERSION = 10.2
+VERSION = 10.3
TAR = tar
RM = /bin/rm -f
@@ -48,13 +48,13 @@ clean:
tar:
cvs commit
- sh -c 'cvs tag -RF apel-`echo $(VERSION) \
+ sh -c 'cvs tag -R apel-`echo $(VERSION) \
| sed s/\\\\./_/ | sed s/\\\\./_/`; \
cd /tmp; \
- cvs -d :pserver:morioka@cvs.m17n.org:/cvs/root \
+ cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root \
export -d apel-$(VERSION) \
-r apel-`echo $(VERSION) | tr . _` apel'
- cd /tmp; $(RM) apel-$(VERSION)/ftp.in ; \
+ cd /tmp; $(RM) apel-$(VERSION)/ftp.in apel-$(VERSION)/.cvsignore ; \
$(TAR) cvzf apel-$(VERSION).tar.gz apel-$(VERSION)
cd /tmp; $(RM) -r apel-$(VERSION)
sed "s/VERSION/$(VERSION)/" < ftp.in > ftp
View
584 README.en
@@ -1,223 +1,314 @@
+-*- outline -*-
+
[README for APEL (English Version)]
-What's APEL?
-============
+* What's APEL?
+
+APEL stands for "A Portable Emacs Library". It consists of following
+modules:
+
+** poe.el
+
+This is an 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.
+ pym.el --- macros for poe.
+
+** poem.el
+
+This module provides 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
+
+** pces.el
+
+This module provides portable character encoding scheme
+(coding-system) features.
+
+ pces-20.el --- for Emacs 20 and XEmacs with coding-system.
+ pces-e20.el --- for Emacs 20.
+ pces-e20_2.el --- for Emacs 20.1 and 20.2.
+ pces-nemacs.el --- for Nemacs.
+ pces-om.el --- for Mule 1.* and Mule 2.*.
+ pces-raw.el --- for emacsen without coding-system features.
+ pces-xfc.el --- for XEmacs with file coding.
+ pces-xm.el --- for XEmacs-mule.
+
+** invisible.el
+
+This modules provides features about invisible region.
+
+ inv-18.el --- for Emacs 18
+ inv-19.el --- for Emacs 19
+ inv-xemacs.el --- for XEmacs
+
+** mcharset.el
+
+This modules provides 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
- APEL stands for "A Portable Emacs Library". It consists of
- following modules:
+** pccl.el --- utility to write portable CCL program
- 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.
+ pccl-om.el --- for MULE 2.*
+ pccl-20.el --- for Emacs 20/XEmacs-21-MULE
- 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
+** alist.el: utility for Association-list
- invisible.el --- provide features about invisible region
- inv-18.el --- for Emacs 18
- inv-19.el --- for Emacs 19
- inv-xemacs.el --- for XEmacs
+** calist.el: utility for condition tree and condition/situation-alist
- 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
+** path-util.el: utility for path management or file detection
- static.el --- utility for static evaluation
+** filename.el: utility to make file-name
- broken.el --- provide information of broken facilities of Emacs
+** install.el: utility to install emacs-lisp package
- pccl.el --- utility to write portable CCL program
- pccl-om.el --- for MULE 2.*
- pccl-20.el --- for Emacs 20/XEmacs-21-MULE
+** mule-caesar.el: ROT 13-47-48 Caesar rotation utility
- alist.el: utility for Association-list
+** emu.el
- calist.el: utility for condition tree and
- condition/situation-alist
+This module provides emu bundled in tm-7.106 compatibility. It
+required poe, poem and mcharset.
- path-util.el: utility for path management or file detection
+ 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
- filename.el: utility to make file-name
+** pcustom.el --- provide portable custom environment
- install.el: utility to install emacs-lisp package
+ tinycustom.el --- emulation module of custom.el
- mule-caesar.el: ROT 13-47-48 Caesar rotation utility
+** time-stamp.el
- 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
+This is a utility to maintain last change time stamps in files edited
+by Emacs.
- pcustom.el --- provide portable custom environment
+** timezone.el
- tinycustom.el --- emulation module of custom.el
+This is a utility of time zone. This is a Y2K fixed version. This
+works with old GNUS 3.14.4 under version 18 of Emacs, too.
+** product.el --- Functions for product version information.
-Installation
-============
+* Installation
-(a) run in expanded place
+** run in expanded place
- If you don't want to install other directories, please do only
- following:
+If you don't want to install other directories, please do only
+following (You can use make.bat for MS-DOS OS family. If you want to
+use it, see `make.bat (for MS-DOS family)'):
- % make
+ % make
- You can specify the emacs command name, for example
+You can specify the emacs command name, for example
- % make EMACS=xemacs
+ % make EMACS=xemacs
- If `EMACS=...' is omitted, EMACS=emacs is used.
+If `EMACS=...' is omitted, EMACS=emacs is used.
-(b) make install
+** make install
- If you want to install other directories, please do following:
+If you want to install other directories, please do following:
- % make install
+ % make install
- You can specify the emacs command name, for example
+You can specify the emacs command name, for example
- % make install EMACS=xemacs
+ % make install EMACS=xemacs
- If `EMACS=...' is omitted, EMACS=emacs is used.
+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:
+You can specify the prefix of the directory tree for Emacs Lisp
+programs and shell scripts, for example:
- % make install PREFIX=~/
+ % make install PREFIX=~/
- If `PREFIX=...' is omitted, the prefix of the directory tree of the
- specified emacs command is used (perhaps /usr/local).
+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:
+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
+ /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:
+You can specify the lisp directory for Emacs Lisp programs,
+for example:
- % make install LISPDIR=~/elisp
+ % make install LISPDIR=~/elisp
- You can also specify the version specific lisp directory where the
- emu modules will be installed in, for example:
+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
+ % 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.
+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
+ % 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.
+You can specify other optional settings by editing the file
+APEL-CFG. Please read comments in it.
-(c) install as a XEmacs package
+** install as a XEmacs package
- If you want to install to XEmacs package directory, please do
- following:
+If you want to install to XEmacs package directory, please do
+following:
- % make install-package
+ % make install-package
- You can specify the emacs command name, for example
+You can specify the emacs command name, for example
- % make install-package XEMACS=xemacs-21
+ % make install-package XEMACS=xemacs-21
- If `XEMACS=...' is omitted, XEMACS=xemacs is used.
+If `XEMACS=...' is omitted, XEMACS=xemacs is used.
- You can specify the package directory, for example:
+You can specify the package directory, for example:
- % make install PACKAGEDIR=~/.xemacs
+ % make install PACKAGEDIR=~/.xemacs
- If `PACKAGEDIR=...' is omitted, the first existing package
- directory is used.
+If `PACKAGEDIR=...' is omitted, the first existing package
+directory is used.
- Notice that XEmacs package system requires XEmacs 21.0 or later.
+Notice that XEmacs package system requires XEmacs 21.0 or later.
-load-path (for Emacs or MULE)
-=============================
+** make.bat (for MS-DOS family)
- 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:
+make.bat is available for MS-DOS family. You have to edit
+make.bat if you want to use it. If you use cygwin environment,
+you can use make.exe and Makefile instead of make.bat.
- --------------------------------------------------------------------
- (normal-top-level-add-to-load-path '("apel"))
- --------------------------------------------------------------------
+In make.bat, a line which contain `rem' in its beginning is a
+comment. You have to insert or delete `rem', if necessary.
- If you are using Emacs 20.3 or later or XEmacs, there are no need to
- set up load-path with normal installation.
+Default setups of make.bat is;
+ set MEADOWVER=1.10
+ set PREFIX=c:\usr\meadow
+ set EMACS=%PREFIX%\%MEADOWVER%\bin\meadow95.exe
+ set LISPDIR=%PREFIX%\site-lisp
+ set VLISPDIR=%PREFIX%\%MEADOWVER%\site-lisp
-Version specific information
-============================
+It assumes that meadow executable binary exists in
+c:\usr\meadow\1.10\bin\meadow95.exe. On such basis make.bat will
+try to install meadow version independent modules of APEL to;
-For Emacs 18 users: "old byte-compiler" vs "new byte-compiler"
+ c:\usr\meadow\site-lisp
- 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.
+and meadow version dependent modules to;
- Therefore, we recommend you to use the "new" optimizing byte-compiler.
- It is the origin of byte-compiler bundled with Emacs 19 and later.
+ c:\usr\meadow\1.10\site-lisp
- Optimizing byte-compiler for Emacs 18 is available from the Emacs
- Lisp Archive and its mirrors.
+Please edit make.bat for your own environment and run make.bat
- 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.
+Emacs 19.3x or earlier does not have (e.x. Mule for Windows based on
+19.28) an Emacs version dependent site-lisp directory
+(e.x. c:\usr\meadow\1.10\site-lisp), and its load-path does not refer
+to such directory by default. If you want install APEL to such an Emacs
+you may install all APEL modules to an Emacs version independent
+site-lisp directory such as c:\usr\mule\site-lisp.
- AFAIK, the "new byte-compiler" for Emacs 18 is also bundled with SKK
- 9.6. It includes patch for Mule 1.*.
+We cannot provide you with a Demacs example for make.bat. If you install
+APEL to Demacs, please send us such an example to apel-en@m17n.org (you
+can post a message to the ML, even if you are not a member).
+If you checkout APEL by using Windows native cvs.exe (not cygwin
+version), cvs.exe will regularize end of line codes, LF to CRLF. And
+it also will try to convert CRLF to CRCRLF. make.bat of which eol
+code is CRCRLF does not work, so if you get such a make.bat, edit it
+to really regularize eol codes to CRLF. If you need further
+information, see the following URL (n.b. Japanese only)
-For Emacs 19.34 and XEmacs 19.14 users: "old custom" vs "new custom"
+ http://openlab.ring.gr.jp/skk/cvswin-ja.html
- "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.
+* load-path (for Emacs or MULE)
- "new custom" for Emacs 19.34 and XEmacs 19.15 - 20.2 is available
- from the following URL.
+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:
- ftp://ftp.dina.kvl.dk/pub/Staff/Per.Abrahamsen/custom/custom-1.9962.tar.gz
+--------------------------------------------------------------------
+(normal-top-level-add-to-load-path '("apel"))
+--------------------------------------------------------------------
- (Note that "new custom" bundled with XEmacs 19.15 - 20.2, and Gnus
- 5.4/5.5 is older than this version.)
+If you are using Emacs 20.3 or later or XEmacs, there are no need to
+set up load-path with normal installation.
- 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".
+* Version specific information
- 2) If you use Mule (based on Emacs 19), you must apply this patch
- to "new custom".
+** 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 or SKK 10.62a. You can get SKK 10.62a from the following URL;
+
+ http://openlab.ring.gr.jp/skk/maintrunk
+
+They include 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
@@ -233,183 +324,178 @@ For Emacs 19.34 and XEmacs 19.14 users: "old custom" vs "new custom"
(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".
+ 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
-==========
+* How to use
-alist
------
+** alist
-Function put-alist (ITEM VALUE 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.
+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)
+*** Function del-alist (ITEM ALIST)
- If there is a pair whose key is ITEM, delete it from ALIST.
+If there is a pair whose key is ITEM, delete it from ALIST.
-Function set-alist (SYMBOL ITEM VALUE)
+*** Function set-alist (SYMBOL ITEM VALUE)
- Modify a alist indicated by SYMBOL to set VALUE to ITEM.
+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)
+*** Function modify-alist (MODIFIER DEFAULT)
- Modify alist DEFAULT into alist MODIFIER.
+Modify alist DEFAULT into alist MODIFIER.
-Function set-modified-alist (SYMBOL 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.
+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
----------
+** path-util
-Function add-path (PATH &rest OPTIONS)
+*** 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'.
+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:
+You can use following PATH styles:
- load-path relative: "PATH" (it is searched from
- `default-load-path')
+ load-path relative: "PATH" (it is searched from `default-load-path')
- home directory relative: "~/PATH" "~USER/PATH"
+ home directory relative: "~/PATH" "~USER/PATH"
- absolute path: "/FOO/BAR/BAZ"
+ absolute path: "/FOO/BAR/BAZ"
- You can specify following OPTIONS:
+You can specify following OPTIONS:
- 'all-paths --- search from `load-path' instead of
- `default-load-path'
+ 'all-paths --- search from `load-path' instead of
+ `default-load-path'
- 'append --- add PATH to the last of `load-path'
+ 'append --- add PATH to the last of `load-path'
-Function add-latest-path (PATTERN &optional ALL-PATHS)
+*** 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'.
+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,
+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")
+ (add-latest-path "bbdb")
- it adds "/usr/local/share/emacs/site-lisp/bbdb-1.51" to top of
- `load-path'.
+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'.
+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)
+*** 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.
+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)
+ (expand-file-name "texi" gnus-path)))
- Return absolute-path of FILE if FILE exists in PATHS. If PATHS is
- omitted, `load-path' is used.
+*** Function file-installed-p (FILE &optional PATHS)
-Function exec-installed-p (FILE &optional PATHS SUFFIXES)
+Return absolute-path of FILE if FILE exists in PATHS. If PATHS is
+omitted, `load-path' is used.
- 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 exec-installed-p (FILE &optional PATHS SUFFIXES)
-Function module-installed-p (MODULE &optional PATHS)
+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.
- Return non-nil if MODULE is provided or exists in PATHS. If PATHS
- is omitted, `load-path' is used.
+*** Function module-installed-p (MODULE &optional PATHS)
-filename
---------
+Return non-nil if MODULE is provided or exists in PATHS. If PATHS is
+omitted, `load-path' is used.
-Function replace-as-filename (string)
+** filename
- Return safety file-name from STRING.
+*** Function replace-as-filename (string)
- It refers variable `filename-filters'. It is list of functions for
- file-name filter. Default filter refers following variables:
+Return safety file-name from STRING.
- Variable filename-limit-length
+It refers variable `filename-filters'. It is list of functions for
+file-name filter. Default filter refers following variables:
- Limit size of file-name.
+**** Variable filename-limit-length
- Variable filename-replacement-alist
+Limit size of file-name.
- Alist list of characters vs. string as replacement. List of
- characters represents characters not allowed as 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
-===========
+* Bug reports
- If you write bug-reports and/or suggestions for improvement, please
- send them to the APEL Mailing List:
+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)
+ 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
+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)
+ apel-en-ctl@m17n.org (English)
+ apel-ja-ctl@m17n.org (Japanese)
-Anonymous FTP
-=============
+* Anonymous FTP
- Latest release of APEL can be obtained from:
+Latest release of APEL can be obtained from:
- ftp://ftp.m17n.org/pub/mule/apel/
+ ftp://ftp.m17n.org/pub/mule/apel/
-CVS
-===
+* CVS
- Development of APEL uses CVS. So latest developing version is
- available at CVS.
+Development of APEL uses CVS. So latest developing version is
+available at CVS.
-(0) cvs login (first time only)
+** cvs login (first time only)
- % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root login
+ % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root login
- CVS password: [CR] # NULL string
+ CVS password: [CR] # NULL string
-(1) checkout
+** checkout
- % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root checkout apel
+ % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root checkout apel
If you would like to join CVS based development, please send mail to
- cvs@cvs.m17n.org
+ cvs@cvs.m17n.org
+
+with your account name and your public key for ssh. cvsroot is
+:ext:cvs@cvs.m17n.org:/cvs/root.
+
+If you cannot use ssh, please send UNIX /etc/passwd style crypted
+password. you can commit with the cvsroot
+:pserver:<accountname>@cvs.m17n.org:/cvs/root.
- with your account name and UNIX /etc/passwd style crypted password.
- We hope you will join the open development.
+We hope you will join the open development.
View
610 README.ja
@@ -1,234 +1,321 @@
+-*- outline -*-
+
[APEL $B$N(B README ($BF|K\8lHG(B)]
-APEL $B$H$O!)(B
-============
+* APEL $B$H$O!)(B
+
+APEL $B$O(B "A Portable Emacs Library." $B$NN,$G$9!#$3$l$O0J2<$N%b%8%e!<%k$G(B
+$B9=@.$5$l$F$$$^$9(B:
+
+** poe.el
+
+$B<g$K:G?7$N(B emacs $B4D6-$N$?$a$N4pACE*$J4X?t$HFC<l7A<0(B/$B%^%/%m$N(B emulation
+$B$N%b%8%e!<%k!#(B
+
+ poe-xemacs.el --- XEmacs$BMQ(B
+ poe-18.el --- Emacs 18/Nemacs $BMQ(B
+ env.el --- Emacs 18 $BMQ$N(B env.el
+ localhook.el --- Emacs 18 $B$H(B Emacs 19.28 $B0JA0MQ$N(B hook $B4X?t72(B
+ pym.el --- poe $B$N$?$a$N(B macros
+
+** poem.el
+
+$B0\?"@-$N9b$$(B MULE $B%W%m%0%i%`$r=q$/$?$a$N4pACE*$J4X?t$rDs6!$9$k!#(B
+
+ poem-nemacs.el --- Nemacs $BMQ(B
+ poem-ltn1.el --- MULE $B$J$7(B Emacs 19/XEmacs $BMQ(B
+ poem-om.el --- MULE 1.*, 2.* $BMQ(B
+ poem-20.el --- Emacs 20 $B$H(B XEmacs-MULE $B$N6&M-%b%8%e!<%k(B
+ poem-e20_2.el --- Emacs 20.1/20.2 $BMQ(B
+ poem-e20_3.el --- Emacs 20.3 $BMQ(B
+ poem-xm.el --- XEmacs-MULE $BMQ(B
+
+** pces.el
+
+$B0\?"@-$N9b$$(B character encoding $B%9%-!<%`(B (coding-system) $B$rDs6!$9$k!#(B
- APEL $B$O(B "A Portable Emacs Library." $B$NN,$G$9!#$3$l$O0J2<$N%b%8%e!<%k(B
- $B$G9=@.$5$l$F$$$^$9(B:
+ pces-20.el --- coding-system $B5!G=$r;}$D(B Emacs 20 and XEmacs $BMQ(B
+ pces-e20.el --- Emacs 20 $BMQ(B
+ pces-e20_2.el --- Emacs 20.1 and 20.2 $BMQ(B
+ pces-nemacs.el --- Nemacs $BMQ(B
+ pces-om.el --- Mule 1.* and Mule 2.* $BMQ(B
+ pces-raw.el --- coding-system $B5!G=$r;}$?$J$$(B emacsen $BMQ(B
+ pces-xfc.el --- file coding $B5!G=$r;}$D(B XEmacs $BMQ(B
+ pces-xm.el --- XEmacs-mule $BMQ(B
- poe.el --- $B<g$K:G?7$N(B emacs $B4D6-$N$?$a$N4pACE*$J4X?t$HFC<l7A<0(B/$B%^(B
- $B%/%m$N(B emulation $B$N%b%8%e!<%k(B
- poe-xemacs.el --- XEmacs$BMQ(B
- poe-18.el --- Emacs 18/Nemacs $BMQ(B
- env.el --- Emacs 18 $BMQ$N(B env.el
- localhook.el --- Emacs 18 $B$H(B Emacs 19.28 $B0JA0MQ$N(B hook $B4X?t72(B
+** invisible.el --- $BIT2D;k(B region $B$K4X$9$k5!G=$rDs6!$9$k(B
- poem.el --- $B0\?"@-$N9b$$(B MULE $B%W%m%0%i%`$r=q$/$?$a$N4pACE*$J4X?t$r(B
- $BDs6!$9$k(B
- poem-nemacs.el --- Nemacs $BMQ(B
- poem-ltn1.el --- MULE $B$J$7(B Emacs 19/XEmacs $BMQ(B
- poem-om.el --- MULE 1.*, 2.* $BMQ(B
- poem-20.el --- Emacs 20 $B$H(B XEmacs-MULE $B$N6&M-%b%8%e!<%k(B
- poem-e20_2.el --- Emacs 20.1/20.2 $BMQ(B
- poem-e20_3.el --- Emacs 20.3 $BMQ(B
- poem-xm.el --- XEmacs-MULE $BMQ(B
+ inv-18.el --- for Emacs 18
+ inv-19.el --- for Emacs 19
+ inv-xemacs.el --- for XEmacs
- invisible.el --- $BIT2D;k(B region $B$K4X$9$k5!G=$rDs6!$9$k(B
- inv-18.el --- for Emacs 18
- inv-19.el --- for Emacs 19
- inv-xemacs.el --- for XEmacs
+** mcharset.el --- MIME charset $B4XO"$N5!G=$rDs6!$9$k(B
- mcharset.el --- MIME charset $B4XO"$N5!G=$rDs6!$9$k(B
- mcs-nemacs.el --- Nemacs $BMQ(B
- mcs-ltn1.el --- MULE Emacs 19/XEmacs $BMQ(B
- mcs-om.el --- MULE 1.*, 2.* $BMQ(B
- mcs-20.el --- Emacs 20 $B$H(B XEmacs-MULE $BMQ$N6&M-%b%8%e!<%k(B
- mcs-e20.el --- Emacs 20 $BMQ(B
- mcs-xm.el --- XEmacs-MULE $BMQ(B
- mcs-xmu.el --- XEmacs-MULE $BMQ(B (ISO646 $BJ8;z$NC10l2=(B)
+ mcs-nemacs.el --- Nemacs $BMQ(B
+ mcs-ltn1.el --- MULE Emacs 19/XEmacs $BMQ(B
+ mcs-om.el --- MULE 1.*, 2.* $BMQ(B
+ mcs-20.el --- Emacs 20 $B$H(B XEmacs-MULE $BMQ$N6&M-%b%8%e!<%k(B
+ mcs-e20.el --- Emacs 20 $BMQ(B
+ mcs-xm.el --- XEmacs-MULE $BMQ(B
+ mcs-xmu.el --- XEmacs-MULE $BMQ(B (ISO646 $BJ8;z$NC10l2=(B)
- static.el --- $B@EE*I>2A$N$?$a$N%f!<%F%#%j%F%#!<(B
+** static.el --- $B@EE*I>2A$N$?$a$N%f!<%F%#%j%F%#!<(B
- broken.el --- Emacs $B$N2u$l$F$$$k5!G=$N>pJs$rDs6!$9$k(B
+** broken.el --- Emacs $B$N2u$l$F$$$k5!G=$N>pJs$rDs6!$9$k(B
- pccl.el --- $B0\?"2DG=$J(B CCL $B%W%m%0%i%`$r=q$/$?$a$N%f!<%F%#%j%F%#!<(B
- pccl-om.el --- MULE 2.* $BMQ(B
- pccl-20.el --- Emacs 20/XEmacs-21-MULE $BMQ(B
+** pccl.el --- $B0\?"2DG=$J(B CCL $B%W%m%0%i%`$r=q$/$?$a$N%f!<%F%#%j%F%#!<(B
- alist.el: $BO"A[%j%9%H$N$?$a$N%f!<%F%#%j%F%#!<(B
+ pccl-om.el --- MULE 2.* $BMQ(B
+ pccl-20.el --- Emacs 20/XEmacs-21-MULE $BMQ(B
- calist.el: $B>uBVLZ$H>uBV(B/$B>u67O"A[%j%9%HMQ$N%f!<%F%#%j%F%#!<(B
+** alist.el: $BO"A[%j%9%H$N$?$a$N%f!<%F%#%j%F%#!<(B
- path-util.el: $B%Q%94IM}$H%U%!%$%kC5:w$N$?$a$N%f!<%F%#%j%F%#!<(B
+** calist.el: $B>uBVLZ$H>uBV(B/$B>u67O"A[%j%9%HMQ$N%f!<%F%#%j%F%#!<(B
- filename.el:$B%U%!%$%kL>$r:n$k$?$a$N%f!<%F%#%j%F%#(B
+** path-util.el: $B%Q%94IM}$H%U%!%$%kC5:w$N$?$a$N%f!<%F%#%j%F%#!<(B
- install.el: emacs-lisp $B%Q%C%1!<%8%$%s%9%H!<%k$9$k$?$a$N%f!<%F%#%j(B
- $B%F%#!<(B
+** filename.el:$B%U%!%$%kL>$r:n$k$?$a$N%f!<%F%#%j%F%#(B
- mule-caesar.el: ROT 13-47-48 Caesar $BJQ49$N%f!<%F%#%j%F%#!<(B
+** install.el: emacs-lisp $B%Q%C%1!<%8%$%s%9%H!<%k$9$k$?$a$N%f!<%F%#%j%F%#!<(B
- emu.el --- (tm-7.106 $B$KF~$C$F$$$?(B emu $B$H$N8_49@-$rJ]$D$?$a$N%b%8%e!<(B
- $B%k!#(Bpoe, poem, mcharset $B$r(B require $B$9$k(B)
+** mule-caesar.el: ROT 13-47-48 Caesar $BJQ49$N%f!<%F%#%j%F%#!<(B
- emu-mule: MULE 1.*, 2.* $BMQ(B
+** emu.el
- richtext.el --- Emacs 19.29 $B$+$=$l0J9_(B
- XEmacs 19.14 $B$+$=$l0J9_(B
- $B$N$?$a$N(B text/richtext $B%b%8%e!<%k(B
- tinyrich.el --- $B8E$$(B emacs $B4D6-$N$?$a$N(B text/richtext $B%b%8%e!<(B
- $B%k(B
+tm-7.106 $B$KF~$C$F$$$?(B emu $B$H$N8_49@-$rJ]$D$?$a$N%b%8%e!<%k!#(Bpoe, poem,
+mcharset $B$r(B require $B$9$k!#(B
- pcustom.el --- $B0\?"@-$N9b$$(B custom $B4D6-$rDs6!$9$k(B
+ emu-mule: MULE 1.*, 2.* $BMQ(B
- tinycustom.el --- custom.el $B$N%(%_%e%l!<%7%g%s$r9T$J$&(B
+ richtext.el --- Emacs 19.29 $B$+$=$l0J9_(B XEmacs 19.14 $B$+$=$l0J9_$N$?(B
+ $B$a$N(B text/richtext $B%b%8%e!<%k(B
+ tinyrich.el --- $B8E$$(B emacs $B4D6-$N$?$a$N(B text/richtext $B%b%8%e!<%k(B
+** pcustom.el --- $B0\?"@-$N9b$$(B custom $B4D6-$rDs6!$9$k(B
-$B%$%s%9%H!<%k(B
-============
+ tinycustom.el --- custom.el $B$N%(%_%e%l!<%7%g%s$r9T$J$&(B
-(a) $BE83+$7$?>l=j$G<B9T(B
+** time-stamp.el
- $BB>$N%G%#%l%/%H%j!<$K%$%s%9%H!<%k$7$?$/$J$$$J$i!"0J2<$N$3$H$@$1$r$d$C(B
- $B$F$/$@$5$$(B:
+Emacs $B$K$h$kJT=8$N:]!":G=*=$@5;~9o$rJ]B8$9$k$?$a$N%f!<%F%#%j%F%#!#(B
- % make
+** timezone.el
- emacs $B$N%3%^%s%IL>$r;XDj$9$k$3$H$,$G$-$^$9!#Nc$($P!"(B
+$B%?%$%`%>!<%s%f!<%F%#%j%F%#!#(B2000 $BG/LdBjBP1~HG!#(BEmacs 18 $B$H(B GNUS 3.14.4
+$B$G$bF0:n2D!#(B
- % make EMACS=xemacs
+** product.el --- $B%W%m%@%/%H$N%P!<%8%g%s>pJs$N$?$a$N5!G=$rDs6!$9$k%b%8%e!<%k!#(B
- `EMACS=...' $B$,>JN,$5$l$k$H!"(BEmacs=emacs $B$,;H$o$l$^$9!#(B
-(b) make install
+* $B%$%s%9%H!<%k(B
- $BB>$N%G%#%l%/%H%j!<$K%$%s%9%H!<%k$7$?$$$J$i!"0J2<$N$3$H$r$7$F$/$@$5$$(B:
+** $BE83+$7$?>l=j$G<B9T(B
- % make install
+$BB>$N%G%#%l%/%H%j!<$K%$%s%9%H!<%k$7$?$/$J$$$J$i!"0J2<$N$3$H$@$1$r$d$C$F(B
+$B$/$@$5$$(B (MS-DOS $B7O$N(B OS $B$N$?$a$K(B make.bat $B$,MQ0U$5$l$F$$$^$9!#(B
+make.bat $B$NMxMQ$K$D$$$F$O2<5-!V(Bmake.bat $B$rMxMQ$9$k(B (MS-DOS $B7O(B OS $B$N>l(B
+$B9g(B)$B!W$r;2>H$7$F2<$5$$(B)$B!#(B:
- emacs $B$N%3%^%s%IL>$r;XDj$9$k$3$H$,$G$-$^$9!#Nc$($P!"(B
+ % make
- % make install EMACS=xemacs
+emacs $B$N%3%^%s%IL>$r;XDj$9$k$3$H$,$G$-$^$9!#Nc$($P!"(B
- `EMACS=...' $B$,>JN,$5$l$k$H!"(BEmacs=emacs $B$,;H$o$l$^$9!#(B
+ % make EMACS=xemacs
- Emacs Lisp $B%W%m%0%i%`$H%7%'%k%9%/%j%W%H$N$?$a$N%G%#%l%/%H%j!<LZ$N@\(B
- $BF,<-(B (prefix) $B$r;XDj$9$k$3$H$,$G$-$^$9!#Nc$($P!"(B
+`EMACS=...' $B$,>JN,$5$l$k$H!"(BEmacs=emacs $B$,;H$o$l$^$9!#(B
- % make install PREFIX=~/
+** make install
- `PREFIX=...' $B$,>JN,$5$l$k$H!";XDj$5$l$?(B emacs $B%3%^%s%I$N%G%#%l%/%H%j!<(B
- $BLZ$N@\F,<-$,;HMQ$5$l$^$9(B ($B$*$=$i$/(B /usr/local $B$G$9(B)$B!#(B
+$BB>$N%G%#%l%/%H%j!<$K%$%s%9%H!<%k$7$?$$$J$i!"0J2<$N$3$H$r$7$F$/$@$5$$(B:
- $BNc$($P!"(BPREFIX=/usr/local $B$H(B Emacs 20.2 $B$,;XDj$5$l$l$P!"0J2<$N%G%#%l(B
- $B%/%H%j!<LZ$,:n@.$5$l$^$9!#(B
+ % make install
- /usr/local/share/emacs/20.2/site-lisp/ --- emu
- /usr/local/share/emacs/site-lisp/apel/ --- APEL
+emacs $B$N%3%^%s%IL>$r;XDj$9$k$3$H$,$G$-$^$9!#Nc$($P!"(B
- Emacs Lisp $B%W%m%0%i%`$N$?$a$N(B lisp $B%G%#%l%/%H%j!<$r;XDj$9$k$3$H$,$G(B
- $B$-$^$9!#Nc$($P!"(B:
+ % make install EMACS=xemacs
- % make install LISPDIR=~/elisp
+`EMACS=...' $B$,>JN,$5$l$k$H!"(BEmacs=emacs $B$,;H$o$l$^$9!#(B
- emu $B%b%8%e!<%k$,%$%s%9%H!<%k$5$l$k!"%P!<%8%g%sFCM-$N(B lisp $B%G%#%l%/%H(B
- $B%j!<$r;XDj$9$k$3$H$b$G$-$^$9!#Nc$($P!"(B:
+Emacs Lisp $B%W%m%0%i%`$H%7%'%k%9%/%j%W%H$N$?$a$N%G%#%l%/%H%j!<LZ$N@\F,(B
+$B<-(B (prefix) $B$r;XDj$9$k$3$H$,$G$-$^$9!#Nc$($P!"(B
- % make install VERSION_SPECIFIC_LISPDIR=~/elisp
+ % make install PREFIX=~/
- $B$I$N%U%!%$%k$,(B emu $B%b%8%e!<%k$+(B apel $B%b%8%e!<%k$N0lIt$J$N$+!"$=$l$i(B
- $B$,$I$3$K%$%s%9%H!<%k$5$l$k$+$rCN$j$?$$$H$-$O!"<!$N$h$&$J%3%^%s%I$rF~(B
- $BNO$9$k$3$H$,$G$-$^$9!#(B
+`PREFIX=...' $B$,>JN,$5$l$k$H!";XDj$5$l$?(B emacs $B%3%^%s%I$N%G%#%l%/%H%j!<(B
+$BLZ$N@\F,<-$,;HMQ$5$l$^$9(B ($B$*$=$i$/(B /usr/local $B$G$9(B)$B!#(B
- % make what-where LISPDIR=~/elisp VERSION_SPECIFIC_LISPDIR=~/elisp
+$BNc$($P!"(BPREFIX=/usr/local $B$H(B Emacs 20.2 $B$,;XDj$5$l$l$P!"0J2<$N%G%#%l%/(B
+$B%H%j!<LZ$,:n@.$5$l$^$9!#(B
- $B%U%!%$%k(B APEL-CFG $B$rJT=8$9$k$3$H$GB>$NA*Br<+M3$J@_Dj$r;XDj$9$k$3$H$,(B
- $B$G$-$^$9!#$=$NCf$N%3%a%s%H$rFI$s$G$/$@$5$$!#(B
+ /usr/local/share/emacs/20.2/site-lisp/ --- emu
+ /usr/local/share/emacs/site-lisp/apel/ --- APEL
+
+Emacs Lisp $B%W%m%0%i%`$N$?$a$N(B lisp $B%G%#%l%/%H%j!<$r;XDj$9$k$3$H$,$G$-(B
+$B$^$9!#Nc$($P!"(B:
+
+ % make install LISPDIR=~/elisp
+
+emu $B%b%8%e!<%k$,%$%s%9%H!<%k$5$l$k!"%P!<%8%g%sFCM-$N(B lisp $B%G%#%l%/%H%j!<(B
+$B$r;XDj$9$k$3$H$b$G$-$^$9!#Nc$($P!"(B:
+
+ % make install VERSION_SPECIFIC_LISPDIR=~/elisp
+
+$B$I$N%U%!%$%k$,(B emu $B%b%8%e!<%k$+(B apel $B%b%8%e!<%k$N0lIt$J$N$+!"$=$l$i$,(B
+$B$I$3$K%$%s%9%H!<%k$5$l$k$+$rCN$j$?$$$H$-$O!"<!$N$h$&$J%3%^%s%I$rF~NO$9(B
+$B$k$3$H$,$G$-$^$9!#(B
+
+ % make what-where LISPDIR=~/elisp VERSION_SPECIFIC_LISPDIR=~/elisp
+
+$B%U%!%$%k(B APEL-CFG $B$rJT=8$9$k$3$H$GB>$NA*Br<+M3$J@_Dj$r;XDj$9$k$3$H$,$G(B
+$B$-$^$9!#$=$NCf$N%3%a%s%H$rFI$s$G$/$@$5$$!#(B
(c) XEmacs $B$N%Q%C%1!<%8$H$7$F%$%s%9%H!<%k$9$k(B
- XEmacs $B$N%Q%C%1!<%8%G%#%l%/%H%j!<$K%$%s%9%H!<%k$9$k>l9g$O!"0J2<$N$3(B
- $B$H$r$7$F$/$@$5$$(B:
+XEmacs $B$N%Q%C%1!<%8%G%#%l%/%H%j!<$K%$%s%9%H!<%k$9$k>l9g$O!"0J2<$N$3$H(B
+$B$r$7$F$/$@$5$$(B:
+
+ % make install-package
+
+emacs $B$N%3%^%s%IL>$r;XDj$9$k$3$H$,$G$-$^$9!#Nc$($P!"(B
- % make install-package
+ % make install-package XEMACS=xemacs-21
- emacs $B$N%3%^%s%IL>$r;XDj$9$k$3$H$,$G$-$^$9!#Nc$($P!"(B
+`XEMACS=...' $B$,>JN,$5$l$k$H!"(BXEMACS=xemacs $B$,;HMQ$5$l$^$9!#(B
- % make install-package XEMACS=xemacs-21
+$B%Q%C%1!<%8$N%G%#%l%/%H%j!<$r;XDj$9$k$3$H$,$G$-$^$9!#Nc$($P(B:
- `XEMACS=...' $B$,>JN,$5$l$k$H!"(BXEMACS=xemacs $B$,;HMQ$5$l$^$9!#(B
+ % make install PACKAGEDIR=~/.xemacs
- $B%Q%C%1!<%8$N%G%#%l%/%H%j!<$r;XDj$9$k$3$H$,$G$-$^$9!#Nc$($P(B:
+`PACKAGEDIR=...' $B$,>JN,$5$l$k$H!"B8:_$9$k%Q%C%1!<%8%G%#%l%/%H%j!<$N:G(B
+$B=i$N$b$N$,;H$o$l$^$9!#(B
- % make install PACKAGEDIR=~/.xemacs
+XEmacs $B$N%Q%C%1!<%8%7%9%F%`$O(B XEmacs 21.0 $B$+$=$l0J9_$rMW5a$9$k$3$H$KCm(B
+$B0U$7$F$/$@$5$$!#(B
- `PACKAGEDIR=...' $B$,>JN,$5$l$k$H!"B8:_$9$k%Q%C%1!<%8%G%#%l%/%H%j!<$N(B
- $B:G=i$N$b$N$,;H$o$l$^$9!#(B
+** make.bat $B$rMxMQ$9$k(B (MS-DOS $B7O(B OS $B$N>l9g(B)
- XEmacs $B$N%Q%C%1!<%8%7%9%F%`$O(B XEmacs 21.0 $B$+$=$l0J9_$rMW5a$9$k$3$H$K(B
- $BCm0U$7$F$/$@$5$$!#(B
+MS-DOS $B7O$N(B OS $B$N$?$a$K(B make.bat $B$,MQ0U$5$l$F$$$^$9!#(Bmake.bat $B$rMxMQ(B
+$B$9$k$K$OE:IU$N(B make.bat $B$rJT=8$9$k$3$H$,I,MW$G$9(B (cygwin $B4D6-$rMxMQ(B
+$B$7$F$$$kJ}$O(B make.exe $B$H(B Makefile $B$rMxMQ$9$k$3$H$,$G$-$^$9(B)$B!#(B
+make.bat $B$NCf$G$O(B `rem' $B$,9TF,$K$"$k9T$O%3%a%s%H$H$7$F07$o$l$^$9!#I,(B
+$BMW$K1~$8!"(B`rem' $B$rA^F~$7$?$j!"$^$?$O:o=|$7$?$j$7$F2<$5$$!#(B
-load-path$B!J(BEmacs $B$H(B MULE $B$N>l9g!K(B
-================================
+make.bat $B$G%G%#%U%)%k%H$GM-8z$K$J$C$F$$$k@_Dj$O!"(B
- $B$b$7(B Emacs $B$b$7$/$O(B Mule $B$r$*;H$$$J$i!"(BAPEL $B$r(B install $B$7$?>l=j$r(B
- load-path $B$KDI2C$7$F$/$@$5$$!#$b$7(B Emacs 19.29 $B0J9_$^$?$O(B Emacs 20.1,
- 20.2 $B$r;H$C$F=i4|@_Dj$G%$%s%9%H!<%k$7$?$N$J$i!"<!$N$h$&$K(B subdirs.el
- $B$r=q$/$3$H$,$G$-$^$9!#(B
+ set MEADOWVER=1.10
+ set PREFIX=c:\usr\meadow
+ set EMACS=%PREFIX%\%MEADOWVER%\bin\meadow95.exe
+ set LISPDIR=%PREFIX%\site-lisp
+ set VLISPDIR=%PREFIX%\%MEADOWVER%\site-lisp
- --------------------------------------------------------------------
- (normal-top-level-add-to-load-path '("apel"))
- --------------------------------------------------------------------
+$B$G!"(Bmeadow $B$N%P%$%J%j$,(B c:\usr\meadow\1.10\bin\meadow95.exe $B$K%$%s%9(B
+$B%H!<%k$5$l$F$$$k$3$H$rA0Ds$K$7$F$$$^$9!#$=$NA0Ds$K4p$E$-!"(BAPEL $B$N%b(B
+$B%8%e!<%k$N$&$A!"(Bmeadow $B$N%P!<%8%g%s$K0MB8$7$J$$%b%8%e!<%k$r(B
- $B$b$7(B Emacs 20.3 $B0J9_$b$7$/$O(B XEmacs $B$r;H$C$FIaDL$K%$%s%9%H!<%k$9$k$N(B
- $B$J$i$P!"(Bload-path $B$r@_Dj$9$kI,MW$O$"$j$^$;$s!#(B
+ c:\usr\meadow\site-lisp
+$B$K!"%P!<%8%g%s$K0MB8$9$k%b%8%e!<%k$r(B
-Emacs $B$N%P!<%8%g%s$K4XO"$7$?>pJs(B
-================================
+ c:\usr\meadow\1.10\site-lisp
+
+$B$K%$%s%9%H!<%k$7$h$&$H$7$^$9!#>e5-$NNc$r;29M$K!"<+J,$N4D6-MQ$N@_Dj$r=q(B
+$B$-9~$s$G(B make.bat $B$rF0$+$7$F2<$5$$!#(B
+
+19.3x $B0JA0$N(B Emacs ($BNc$($P(B 19.28 $B%Y!<%9$N(B Mule for Windows) $B$K$O%P!<%8%g(B
+$B%s0MB8$N(B site-lisp $B%G%#%l%/%H%j(B ($B>e5-$NNc$G8@$($P(B
+c:\usr\meadow\1.10\site-lisp) $B$,B8:_$;$:!"%G%#%U%)%k%H$G$O(B load-path $B$b(B
+$BDL$C$F$$$^$;$s!#$3$N>l9g$O(B c:\usr\mule\site-lisp $B$J$I$N%P!<%8%g%sHs0MB8(B
+$B$N(B site-lisp $B%G%#%l%/%H%j$K(B APEL $B$NA4$F$N%b%8%e!<%k$rF~$l$l$PNI$$$G$7$g(B
+$B$&!#(B
+
+Demacs $B$N@_DjNc$r=`Hw$9$k$3$H$,$G$-$^$;$s$G$7$?!#(BDemacs $B$K(B APEL $B$r%$%s(B
+$B%9%H!<%k$7$?J}$O!"@_DjNc$r(B apel-ja@m17n.org $B$KAw$C$F2<$5$$(B ($BHs9XFI<T$G(B
+$B$bAw?.$O$G$-$^$9(B)$B!#(B
+
+$B$J$*!"(BWindows $B%M%$%F%#%V$N(B cvs.exe (not cygwin) $B$rMxMQ$7$F(B APEL $B$r(B
+checkout $B$7$?>l9g$O!"(Bcvs.exe $B$K$h$j9TKv%3!<%I$,@55,2=$5$l$F(B CRCRLF $B$K(B
+$B$J$C$F$$$k2DG=@-$,$"$j$^$9!#$3$N$h$&$J>l9g!"(Bmake.bat $B$OF0$-$^$;$s$N$G(B
+$B9TKv%3!<%I$r(B CRLF $B$K=$@5$7$F$*;H$$2<$5$$!#$3$NLdBj$K$D$$$F>\$7$/$O!"(B
+
+ http://openlab.ring.gr.jp/skk/cvswin-ja.html
+
+$B$r$4;2>H2<$5$$!#(B
+
+* load-path$B!J(BEmacs $B$H(B MULE $B$N>l9g!K(B
+
+$B$b$7(B Emacs $B$b$7$/$O(B Mule $B$r$*;H$$$J$i!"(BAPEL $B$r(B install $B$7$?>l=j$r(B
+load-path $B$KDI2C$7$F$/$@$5$$!#$b$7(B Emacs 19.29 $B0J9_$^$?$O(B Emacs 20.1,
+20.2 $B$r;H$C$F=i4|@_Dj$G%$%s%9%H!<%k$7$?$N$J$i!"<!$N$h$&$K(B subdirs.el
+$B$r=q$/$3$H$,$G$-$^$9!#(B
+
+--------------------------------------------------------------------
+(normal-top-level-add-to-load-path '("apel"))
+--------------------------------------------------------------------
+
+$B$b$7(B Emacs 20.3 $B0J9_$b$7$/$O(B XEmacs $B$r;H$C$FIaDL$K%$%s%9%H!<%k$9$k$N(B
+$B$J$i$P!"(Bload-path $B$r@_Dj$9$kI,MW$O$"$j$^$;$s!#(B
+
+
+* Emacs $B$N%P!<%8%g%s$K4XO"$7$?>pJs(B
+
+** $B!V8E$$(B byte-compiler$B!W$H!V?7$7$$(B byte-compiler$B!W(B
-$B!V8E$$(B byte-compiler$B!W$H!V?7$7$$(B byte-compiler$B!W(B
Emacs 18 $B$N%f!<%6$N$_$J$5$s$X(B:
- $B$3$N%Q%C%1!<%8$G$O%3%s%Q%$%k;~$K$*$1$k>r7oH=CG$r$?$/$5$s9T$J$C$F$$$^(B
- $B$9!#;DG0$J$,$i(B Emacs 18 $B$KIUB0$7$F$$$k(B byte-compiler $B$K$O!"Nc$($P(B
- `eval-when-compile' $B$d(B `eval-and-compile' $B$N5!G=$,L5$$$N$GBeMQIJ$N%^(B
- $B%/%m$rMQ0U$7$F$"$j$^$9$,!"$3$l$i$O%3%s%Q%$%k;~$@$1$G$J$/(B load $B;~$^$?(B
- $B$O<B9T;~$K$bF/$$$F$7$^$$$^$9(B! $B2C$($F!V8E$$(B byte-compiler$B!W$O%H%C%W(B
- $B%l%Y%k$N%^%/%m$r%3%s%Q%$%k$7$F$/$l$J$$$N$G!"(BAPEL $B$NB?$/$N%3!<%I$,%3(B
- $B%s%Q%$%k$5$l$J$$$^$^$K$J$C$F$7$^$$$^$9!#(B
+$B$3$N%Q%C%1!<%8$G$O%3%s%Q%$%k;~$K$*$1$k>r7oH=CG$r$?$/$5$s9T$J$C$F$$$^(B
+$B$9!#;DG0$J$,$i(B Emacs 18 $B$KIUB0$7$F$$$k(B byte-compiler $B$K$O!"Nc$($P(B
+`eval-when-compile' $B$d(B `eval-and-compile' $B$N5!G=$,L5$$$N$GBeMQIJ$N%^(B
+$B%/%m$rMQ0U$7$F$"$j$^$9$,!"$3$l$i$O%3%s%Q%$%k;~$@$1$G$J$/(B load $B;~$^$?(B
+$B$O<B9T;~$K$bF/$$$F$7$^$$$^$9(B! $B2C$($F!V8E$$(B byte-compiler$B!W$O%H%C%W(B
+$B%l%Y%k$N%^%/%m$r%3%s%Q%$%k$7$F$/$l$J$$$N$G!"(BAPEL $B$NB?$/$N%3!<%I$,%3(B
+$B%s%Q%$%k$5$l$J$$$^$^$K$J$C$F$7$^$$$^$9!#(B
+
+$B$=$3$G!":GE,2=$r9T$J$&!V?7$7$$(B byte-compiler$B!W$r;H$&$3$H$r$*4+$a$7$^(B
+$B$9!#$=$l$O(B Emacs 19 $B0J9_$KIUB0$7$F$$$k(B byte-compiler $B$N85$K$J$C$F$$(B
+$B$k$b$N$G$9!#(B
- $B$=$3$G!":GE,2=$r9T$J$&!V?7$7$$(B byte-compiler$B!W$r;H$&$3$H$r$*4+$a$7$^(B
- $B$9!#$=$l$O(B Emacs 19 $B0J9_$KIUB0$7$F$$$k(B byte-compiler $B$N85$K$J$C$F$$(B
- $B$k$b$N$G$9!#(B
+$B:GE,2=$r9T$J$&(B byte-compiler $B$O(B Emacs Lisp Archive $B$*$h$S$=$l$i$N%_(B
+$B%i!<$+$iF~<j$9$k$3$H$,$G$-$^$9!#(B
- $B:GE,2=$r9T$J$&(B byte-compiler $B$O(B Emacs Lisp Archive $B$*$h$S$=$l$i$N%_(B
- $B%i!<$+$iF~<j$9$k$3$H$,$G$-$^$9!#(B
+Mule 1.* $B$N;~Be$K$O(B Mule $BMQ$N!V?7$7$$(B byte-compiler$B!W$r4^$`(B Mule 1.*
+$BMQ$N(B "contrib" $B%Q%C%1!<%8$,G[I[$5$l$F$$$^$7$?!#$7$+$78=:_$G$O$3$N%Q%C(B
+$B%1!<%8$r<j$KF~$l$k$3$H$OFq$7$$$G$7$g$&!#(B
- Mule 1.* $B$N;~Be$K$O(B Mule $BMQ$N!V?7$7$$(B byte-compiler$B!W$r4^$`(B Mule 1.*
- $BMQ$N(B "contrib" $B%Q%C%1!<%8$,G[I[$5$l$F$$$^$7$?!#$7$+$78=:_$G$O$3$N%Q%C(B
- $B%1!<%8$r<j$KF~$l$k$3$H$OFq$7$$$G$7$g$&!#(B
+$B2f!9$NCN$k8B$j$G$O(B Emacs 18 $BMQ$N!V?7$7$$(B byte-compiler$B!W$O(B SKK 9.6,
+$B$^$?$O(B SKK 10.62a $B$KIUB0$7$F$$$^$9!#(BSKK 10.62a $B$O(B
- $B2f!9$NCN$k8B$j$G$O(B Emacs 18 $BMQ$N!V?7$7$$(B byte-compiler$B!W$O(B SKK 9.6
- $B$KIUB0$7$F$$$^$9!#$3$l$O(B Mule 1.* $BMQ$N%Q%C%A$b4^$s$G$$$^$9!#(B
+ http://openlab.ring.gr.jp/skk/maintrunk
+$B$+$iF~<j$9$k$3$H$,$G$-$^$9!#$3$l$i$O(B Mule 1.* $BMQ$N%Q%C%A$b4^$s$G$$$^$9!#(B
+
+
+** $B!V8E$$(B custom$B!W$H!V?7$7$$(B custom$B!W(B
-$B!V8E$$(B custom$B!W$H!V?7$7$$(B custom$B!W(B
Emacs 19.34 $B$H(B XEmacs 19.14 $B$N%f!<%6$N$_$J$5$s$X(B:
- Emacs 19.32$B!A(B19.34$B!"(BXEmacs 19.14 $B$*$h$S(B Gnus 5.2/5.3 $B$K4^$^$l$F$$$k(B
- custom $B%i%$%V%i%j$O!V8E$$!W$b$N$G!"$3$l$N(B API $B$O(B Emacs 20.1 $B$^$?$O(B
- XEmacs 19.15 $B$h$j?7$7$$(B Emacsen $B$H(B Gnus 5.4/5.5 $B$K4^$^$l$F$$$k(B
- $B!V?7$7$$(B custom$B!W$H$O0c$C$F$$$^$9!#(B
+Emacs 19.32$B!A(B19.34$B!"(BXEmacs 19.14 $B$*$h$S(B Gnus 5.2/5.3 $B$K4^$^$l$F$$$k(B
+custom $B%i%$%V%i%j$O!V8E$$!W$b$N$G!"$3$l$N(B API $B$O(B Emacs 20.1 $B$^$?$O(B
+XEmacs 19.15 $B$h$j?7$7$$(B Emacsen $B$H(B Gnus 5.4/5.5 $B$K4^$^$l$F$$$k(B
+$B!V?7$7$$(B custom$B!W$H$O0c$C$F$$$^$9!#(B
- Emacs 19.34 $B$H(B XEmacs 19.15$B!A(B20.2 $BMQ$N!V?7$7$$(B custom$B!W$O!"0J2<$N(B
- URL $B$+$i<j$KF~$l$k$3$H$,$G$-$^$9!#(B
+Emacs 19.34 $B$H(B XEmacs 19.15$B!A(B20.2 $BMQ$N!V?7$7$$(B custom$B!W$O!"0J2<$N(B
+URL $B$+$i<j$KF~$l$k$3$H$,$G$-$^$9!#(B
- ftp://ftp.dina.kvl.dk/pub/Staff/Per.Abrahamsen/custom/custom-1.9962.tar.gz
+ftp://ftp.dina.kvl.dk/pub/Staff/Per.Abrahamsen/custom/custom-1.9962.tar.gz
- ($BCm(B: XEmacs 19.15$B!A(B20.2 $B$H(B Gnus 5.4/5.5 $B$K4^$^$l$F$$$k!V?7$7$$(B
- custom$B!W$O$3$NHG$h$j8E$$$b$N$G$9!#(B)
+($BCm(B: XEmacs 19.15$B!A(B20.2 $B$H(B Gnus 5.4/5.5 $B$K4^$^$l$F$$$k!V?7$7$$(B custom$B!W(B
+$B$O$3$NHG$h$j8E$$$b$N$G$9!#(B)
- $B!V?7$7$$(B custom$B!W$r%$%s%9%H!<%k$9$kA0$K!"<!$N3F9`L\$r%A%'%C%/$7$F2<(B
- $B$5$$!#(B
+$B!V?7$7$$(B custom$B!W$r%$%s%9%H!<%k$9$kA0$K!"<!$N3F9`L\$r%A%'%C%/$7$F2<(B
+$B$5$$!#(B
- 1) $B$b$7$"$J$?$,(B Gnus 5.2/5.3 ($B$^$?$OB>$N!V8E$$(B custom$B!W$r;H$&%"%W(B
- $B%j%1!<%7%g%s(B) $B$r;H$&$3$H$K8G<9$7$F$$$k$N$J$i$P!V?7$7$$(B custom$B!W(B
- $B$r%$%s%9%H!<%k$7$F$O$$$1$^$;$s!#(B
+ 1) $B$b$7$"$J$?$,(B Gnus 5.2/5.3 ($B$^$?$OB>$N!V8E$$(B custom$B!W$r;H$&%"%W(B
+ $B%j%1!<%7%g%s(B) $B$r;H$&$3$H$K8G<9$7$F$$$k$N$J$i$P!V?7$7$$(B custom$B!W(B
+ $B$r%$%s%9%H!<%k$7$F$O$$$1$^$;$s!#(B
- 2) Emacs 19 $B$r85$K$7$?(B Mule $B$r;H$&$N$J$i$P!"$3$N%Q%C%A$r!V?7$7$$(B
- custom$B!W$KEv$F$kI,MW$,$"$j$^$9!#(B
+ 2) Emacs 19 $B$r85$K$7$?(B Mule $B$r;H$&$N$J$i$P!"$3$N%Q%C%A$r!V?7$7$$(B
+ custom$B!W$KEv$F$kI,MW$,$"$j$^$9!#(B
----8<------8<------8<------8<------8<------8<------8<------8<----
--- custom-1.9962/cus-face.el~ Wed Mar 4 19:52:39 1998
@@ -244,192 +331,191 @@ Emacs 19.34 $B$H(B XEmacs 19.14 $B$N%f!<%6$N$_$J$5$s$X(B:
(let* ((frames (frame-list))
----8<------8<------8<------8<------8<------8<------8<------8<----
- 3) custom $B$r;H$&%3%s%Q%$%k$5$l$?%"%W%j%1!<%7%g%s$O!"$=$l$r(B load $B$9(B
- $B$k$H$-$d<B9T$9$k$H$-$KF1$8%P!<%8%g%s$N(B custom $B$rI,MW$H$7$^$9!#(B
- $B$7$?$,$C$F!"$$$D$b(B load-path $B$K!V?7$7$$(B custom$B!W$r4^$a$F$*$+$J(B
- $B$1$l$P$J$j$^$;$s!#(B
- $B$3$l$r9T$J$&$?$a$N$b$C$H$b4JC1$JJ}K!$O(B subdirs.el $B$r;H$&$3$H$G(B
- $B$9!#(B
- $B!V?7$7$$(B custom$B!W$,(B /usr/local/share/emacs/19.34/site-lisp/custom/
- $B$K%$%s%9%H!<%k$5$l$F$$$k$N$J$i$P!"(B
- /usr/local/share/emacs/19.34/site-lisp/subdirs.el $B$H$$$&%U%!%$(B
- $B%k$K0J2<$N9T$r=q$-9~$s$G2<$5$$!#(B
+ 3) custom $B$r;H$&%3%s%Q%$%k$5$l$?%"%W%j%1!<%7%g%s$O!"$=$l$r(B load $B$9(B
+ $B$k$H$-$d<B9T$9$k$H$-$KF1$8%P!<%8%g%s$N(B custom $B$rI,MW$H$7$^$9!#(B
+ $B$7$?$,$C$F!"$$$D$b(B load-path $B$K!V?7$7$$(B custom$B!W$r4^$a$F$*$+$J(B
+ $B$1$l$P$J$j$^$;$s!#(B
+ $B$3$l$r9T$J$&$?$a$N$b$C$H$b4JC1$JJ}K!$O(B subdirs.el $B$r;H$&$3$H$G(B
+ $B$9!#(B
+ $B!V?7$7$$(B custom$B!W$,(B /usr/local/share/emacs/19.34/site-lisp/custom/
+ $B$K%$%s%9%H!<%k$5$l$F$$$k$N$J$i$P!"(B
+ /usr/local/share/emacs/19.34/site-lisp/subdirs.el $B$H$$$&%U%!%$(B
+ $B%k$K0J2<$N9T$r=q$-9~$s$G2<$5$$!#(B
- (normal-top-level-add-to-load-path '("custom"))
+ (normal-top-level-add-to-load-path '("custom"))
-$B;H$$J}(B
-======
+* $B;H$$J}(B
-alist
------
+** alist
-$B4X?t(B put-alist (ITEM VALUE ALIST)
+*** $B4X?t(B put-alist (ITEM VALUE ALIST)
- ALIST $B$r(B ITEM $B$NCM$,(B VALUE $B$K$J$k$h$&$K=$@5$7$^$9!#(Bcar $B$,(B ITEM $B$G$"(B
- $B$kBP$,B8:_$9$l$P!"$=$N(B cdr $B$r(B VALUE $B$GCV$-49$($^$9!#$=$N$h$&$JBP$,$J(B
- $B$1$l$P!"?7$7$$BP(B (ITEM . VALUE) $B$r:n$j!"(Bcar $B$,?7$7$$BP$G!"(Bcdr $B$,(B
- ALIST $B$G$"$k?7$7$$O"A[%j%9%H$rJV$7$^$9!#(B
+ALIST $B$r(B ITEM $B$NCM$,(B VALUE $B$K$J$k$h$&$K=$@5$7$^$9!#(Bcar $B$,(B ITEM $B$G$"(B
+$B$kBP$,B8:_$9$l$P!"$=$N(B cdr $B$r(B VALUE $B$GCV$-49$($^$9!#$=$N$h$&$JBP$,$J(B
+$B$1$l$P!"?7$7$$BP(B (ITEM . VALUE) $B$r:n$j!"(Bcar $B$,?7$7$$BP$G!"(Bcdr $B$,(B
+ALIST $B$G$"$k?7$7$$O"A[%j%9%H$rJV$7$^$9!#(B
-$B4X?t(B del-alist (ITEM ALIST)
+*** $B4X?t(B del-alist (ITEM ALIST)
- $BO"A[%j%9%H(B ALIST $B$K(B key $B$,(B ITEM $B$G$"$kBP$,$"$l$P!"$=$l$r(B ALIST $B$+$i<h(B
- $B$j=|$-$^$9!#(B
+$BO"A[%j%9%H(B ALIST $B$K(B key $B$,(B ITEM $B$G$"$kBP$,$"$l$P!"$=$l$r(B ALIST $B$+$i<h(B
+$B$j=|$-$^$9!#(B
-$B4X?t(B set-alist (SYMBOL ITEM VALUE)
+*** $B4X?t(B set-alist (SYMBOL ITEM VALUE)
- SYMBOL $B$G;XDj$5$l$F$$$kO"A[%j%9%H$r!"(BITEM $B$NCM$,(B VALUE $B$G$"$k$h$&$K(B
- $B=$@5$7$^$9!#(B
+SYMBOL $B$G;XDj$5$l$F$$$kO"A[%j%9%H$r!"(BITEM $B$NCM$,(B VALUE $B$G$"$k$h$&$K=$(B
+$B@5$7$^$9!#(B
$BNc(B. (set-alist 'auto-mode-alist "\\.pln$" 'text-mode)
-$B4X?t(B modify-alist (MODIFIER DEFAULT)
+*** $B4X?t(B modify-alist (MODIFIER DEFAULT)
- $BO"A[%j%9%H(B DEFAULT $B$rO"A[%j%9%H(B MODIFIER $B$K=$@5$7$^$9!#(B
+$BO"A[%j%9%H(B DEFAULT $B$rO"A[%j%9%H(B MODIFIER $B$K=$@5$7$^$9!#(B
-$B4X?t(B set-modified-alist (SYMBOL MODIFIER)
+*** $B4X?t(B set-modified-alist (SYMBOL MODIFIER)
- SYMBOL $B$NCM$rO"A[%j%9%H(B MODIFIER $B$K=$@5$7$^$9!#(BSYMBOL $B$OO"A[%j%9%H$G(B
- $B$"$kI,MW$,$"$j$^$9!#$=$l$,B+G{$5$l$F$$$J$1$l$P!"$=$NCM$r(B nil $B$H$_$J(B
- $B$7$^$9!#(B
+SYMBOL $B$NCM$rO"A[%j%9%H(B MODIFIER $B$K=$@5$7$^$9!#(BSYMBOL $B$OO"A[%j%9%H$G$"(B
+$B$kI,MW$,$"$j$^$9!#$=$l$,B+G{$5$l$F$$$J$1$l$P!"$=$NCM$r(B nil $B$H$_$J$7$^(B
+$B$9!#(B
-path-util
----------
+** path-util
-$B4X?t(B add-path (PATH &rest OPTIONS)
+*** $B4X?t(B add-path (PATH &rest OPTIONS)
- PATH $B$,(B `default-load-path' $B$N%G%#%l%/%H%j!<$N2<$KB8:_$7$F!"(B
- `load-path'$B$KB8:_$7$J$$$H$-$K!"$=$l$r(B `load-path' $B$KDI2C$7$^$9!#(B
+PATH $B$,(B `default-load-path' $B$N%G%#%l%/%H%j!<$N2<$KB8:_$7$F!"(B
+`load-path'$B$KB8:_$7$J$$$H$-$K!"$=$l$r(B `load-path' $B$KDI2C$7$^$9!#(B
- $B<!$N$h$&$J(B PATH $B$NMM<0$r;H$&$3$H$,$G$-$^$9(B:
+$B<!$N$h$&$J(B PATH $B$NMM<0$r;H$&$3$H$,$G$-$^$9(B:
- load-path $B$+$i$NAjBP(B: "PATH" ($B$=$l$O(B `default-load-path $B$+$iC5(B
- $B$5$l$^$9!#(B)
+ load-path $B$+$i$NAjBP(B: "PATH" ($B$=$l$O(B `default-load-path $B$+$iC5$5$l$^(B
+ $B$9!#(B)
- $B%[!<%`%G%#%l%/%H%j!<$+$i$NAjBP(B: "~/PATH" "~USER/PATH"
+ $B%[!<%`%G%#%l%/%H%j!<$+$i$NAjBP(B: "~/PATH" "~USER/PATH"
- $B@dBP%Q%9(B: "/FOO/BAR/BAZ"
+ $B@dBP%Q%9(B: "/FOO/BAR/BAZ"
- $B<!$N$h$&$J(B OPTIONS $B$r;XDj$9$k$3$H$,$G$-$^$9(B:
+$B<!$N$h$&$J(B OPTIONS $B$r;XDj$9$k$3$H$,$G$-$^$9(B:
- 'all-paths --- `default-load-path $B$NBe$o$j(B `load-path' $B$+$iC5$7$^(B
+ 'all-paths --- `default-load-path $B$NBe$o$j(B `load-path' $B$+$iC5$7$^(B
$B$9!#(B
- 'append --- PATH $B$r(B `load-path' $B$N:G8e$KDI2C$7$^$9!#(B
+ 'append --- PATH $B$r(B `load-path' $B$N:G8e$KDI2C$7$^$9!#(B
-$B4X?t(B add-latest-path (PATTERN &optional ALL-PATHS)
+*** $B4X?t(B add-latest-path (PATTERN &optional ALL-PATHS)
- $B@55,I=8=(B PATTERN $B$K9gCW$7$?:G?7$N%Q%9$,(B `default-load-path' $B$N2<$KB8(B
- $B:_$7$F$$$F!"(B`load-path' $B$N2<$KB8:_$7$F$$$J$$$H$-$K$=$l$r(B `load-path'
- $B$KDI2C$7$^$9!#(B
+$B@55,I=8=(B PATTERN $B$K9gCW$7$?:G?7$N%Q%9$,(B `default-load-path' $B$N2<$KB8:_(B
+$B$7$F$$$F!"(B`load-path' $B$N2<$KB8:_$7$F$$$J$$$H$-$K$=$l$r(B `load-path' $B$K(B
+$BDI2C$7$^$9!#(B
- $BNc$($P!"(Bbbdb-1.50 $B$H(B bbdb-1.51 $B$,(B site-lisp $B$N2<$K$"$C$F!"(Bbbdb-1.51
- $B$,(B bbdb-1.50 $B$h$j$b?7$7$/!"(Bsite-lisp $B$,(B
- /usr/local/share/emacs/site-lisp $B$G$"$k$H$-$O!"(B
+$BNc$($P!"(Bbbdb-1.50 $B$H(B bbdb-1.51 $B$,(B site-lisp $B$N2<$K$"$C$F!"(Bbbdb-1.51 $B$,(B
+bbdb-1.50 $B$h$j$b?7$7$/!"(Bsite-lisp $B$,(B /usr/local/share/emacs/site-lisp
+$B$G$"$k$H$-$O!"(B
- (add-latest-path "bbdb")
+ (add-latest-path "bbdb")
- $B$O(B "/usr/local/share/emacs/site-lisp/bbdb-1.51" $B$r(B `load-path' $B$N@h(B
- $BF,$KDI2C$7$^$9!#(B
+$B$O(B "/usr/local/share/emacs/site-lisp/bbdb-1.51" $B$r(B `load-path' $B$N@hF,(B
+$B$KDI2C$7$^$9!#(B
- $B>JN,2DG=$J0z?t(B ALL-PATHS $B$,;XDj$5$l$k$H!"(B`default-load-path' $B$N$+$o(B
- $B$j$K(B `load-path' $B$+$iC5$7$^$9!#(B
+$B>JN,2DG=$J0z?t(B ALL-PATHS $B$,;XDj$5$l$k$H!"(B`default-load-path' $B$N$+$o$j(B
+$B$K(B `load-path' $B$+$iC5$7$^$9!#(B
-$B4X?t(B get-latest-path (PATTERN &optional ALL-PATHS)
+*** $B4X?t(B get-latest-path (PATTERN &optional ALL-PATHS)
- $B@55,I=8=(B PATTERN $B$K9gCW$9$k(B default-load-path $B$K$"$k:G?7$N%G%#%l%/%H(B
- $B%j!<$rJV$7$^$9!#>JN,2DG=$J0z?t(B ALL-PATHS $B$,;XDj$5$l$k$H!"(B
- default-load-path $B$NBe$o$j$K(B load-path $B$NA4$F$+$iC5$7$^$9!#(B
+$B@55,I=8=(B PATTERN $B$K9gCW$9$k(B default-load-path $B$K$"$k:G?7$N%G%#%l%/%H%j!<(B
+$B$rJV$7$^$9!#>JN,2DG=$J0z?t(B ALL-PATHS $B$,;XDj$5$l$k$H!"(Bdefault-load-path
+$B$NBe$o$j$K(B load-path $B$NA4$F$+$iC5$7$^$9!#(B
$BNc(B. (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))
- )
+ (expand-file-name "texi" gnus-path)))
-$B4X?t(B file-installed-p (FILE &optional PATHS)
+*** $B4X?t(B file-installed-p (FILE &optional PATHS)
- FILE $B$,(B PATHS $B$KB8:_$7$?>l9g!"(BFILE $B$N@dBP%Q%9$rJV$7$^$9!#(BPATHS $B$,>J(B
- $BN,$5$l$k$H!"(B`load-path' $B$,;H$o$l$^$9!#(B
+FILE $B$,(B PATHS $B$KB8:_$7$?>l9g!"(BFILE $B$N@dBP%Q%9$rJV$7$^$9!#(BPATHS $B$,>JN,(B
+$B$5$l$k$H!"(B`load-path' $B$,;H$o$l$^$9!#(B
-$B4X?t(B exec-installed-p (FILE &optional PATHS SUFFIXES)
+*** $B4X?t(B exec-installed-p (FILE &optional PATHS SUFFIXES)
- FILE $B$,(B PATHS $B$KB8:_$7$?>l9g$K(B FILE $B$N@dBP%Q%9$rJV$7$^$9!#(BPATHS $B$,>J(B
- $BN,$5$l$k$H!"(B`exec-path' $B$,;H$o$l$^$9!#(BSUFFIXES $B$,>JN,$5$l$k$H!"(B
- `exec-suffix-list' $B$,;H$o$l$^$9!#(B
+FILE $B$,(B PATHS $B$KB8:_$7$?>l9g$K(B FILE $B$N@dBP%Q%9$rJV$7$^$9!#(BPATHS $B$,>JN,(B
+$B$5$l$k$H!"(B`exec-path' $B$,;H$o$l$^$9!#(BSUFFIXES $B$,>JN,$5$l$k$H!"(B
+`exec-suffix-list' $B$,;H$o$l$^$9!#(B
-$B4X?t(B module-installed-p (MODULE &optional PATHS)
+*** $B4X?t(B module-installed-p (MODULE &optional PATHS)
- MODULE $B$,Ds6!$5$l$F$$$k(B (provided) $B$+!"(BPATHS $B$KB8:_$9$k>l9g$K(B nil $B$G(B
- $B$J$$CM$rJV$7$^$9!#(BPATHS $B$,>JN,$5$l$k$H!"(B`load-path' $B$,;H$o$l$^$9!#(B
+MODULE $B$,Ds6!$5$l$F$$$k(B (provided) $B$+!"(BPATHS $B$KB8:_$9$k>l9g$K(B nil $B$G(B
+$B$J$$CM$rJV$7$^$9!#(BPATHS $B$,>JN,$5$l$k$H!"(B`load-path' $B$,;H$o$l$^$9!#(B
-filename
---------
+** filename
-$B4X?t(B replace-as-filename (string)
+*** $B4X?t(B replace-as-filename (string)
- STRING $B$+$i0BA4$J%U%!%$%kL>$rJV$7$^$9!#(B
+STRING $B$+$i0BA4$J%U%!%$%kL>$rJV$7$^$9!#(B
- $B$=$l$OJQ?t(B 'filename-fileters' $B$r;2>H$7$^$9!#$=$NJQ?t$O%U%!%$%kL>$N(B
- $BA*JL4o$N$?$a$N4X?t$N%j%9%H$G$9!#=i4|@_Dj$NA*JL4o$O0J2<$NJQ?t$r;2>H$7(B
- $B$F$$$^$9!#(B
+$B$=$l$OJQ?t(B 'filename-fileters' $B$r;2>H$7$^$9!#$=$NJQ?t$O%U%!%$%kL>$NA*(B
+$BJL4o$N$?$a$N4X?t$N%j%9%H$G$9!#=i4|@_Dj$NA*JL4o$O0J2<$NJQ?t$r;2>H$7$F$$(B
+$B$^$9!#(B
- $BJQ?t(B filename-limit-length
+**** $BJQ?t(B filename-limit-length
- $B%U%!%$%kL>$ND9$5$N@)8B!#(B
+$B%U%!%$%kL>$ND9$5$N@)8B!#(B
- $BJQ?t(B filename-replacement-alist
+**** $BJQ?t(B filename-replacement-alist
- $BJ8;z$HJ8;zNs$,BP$K$J$C$?%j%9%H$NO"A[%j%9%H$G$9!#J8;z$N%j%9%H(B
- $B$O%U%!%$%kL>$H$7$F5v$5$l$J$$J8;z$r8=$o$7$^$9!#(B
+$BJ8;z$HJ8;zNs$,BP$K$J$C$?%j%9%H$NO"A[%j%9%H$G$9!#J8;z$N%j%9%H$O%U%!%$%k(B
+$BL>$H$7$F5v$5$l$J$$J8;z$r8=$o$7$^$9!#(B
-$B%P%0Js9p(B
-===========
+* $B%P%0Js9p(B
- $B%P%0Js9p$d2~A1$NDs0F$r=q$$$?$H$-$O!"@'Hs(B APEL $B%a!<%j%s%0%j%9%H$KAw$C(B
- $B$F$/$@$5$$(B:
+$B%P%0Js9p$d2~A1$NDs0F$r=q$$$?$H$-$O!"@'Hs(B APEL $B%a!<%j%s%0%j%9%H$KAw$C$F(B
+$B$/$@$5$$(B:
- apel-en@m17n.org ($B1Q8l(B)
- apel-ja@m17n.org ($BF|K\8l(B)
+ apel-en@m17n.org ($B1Q8l(B)
+ apel-ja@m17n.org ($BF|K\8l(B)
- APEL ML $B$rDL$7$F!"(BAPEL $B$N%P%0$rJs9p$7$?$j!"(BAPEL $B$N:G?7$N%j%j!<%9$r<h(B
- $BF@$7$?$j!"(BAPEL $B$N>-Mh$N3HD%$N5DO@$r$7$?$j$9$k$3$H$,$G$-$^$9!#(BAPEL ML
- $B$K;22C$9$k$K$O!"6u$NEE;R%a!<%k$r(B
+APEL ML $B$rDL$7$F!"(BAPEL $B$N%P%0$rJs9p$7$?$j!"(BAPEL $B$N:G?7$N%j%j!<%9$r<hF@(B
+$B$7$?$j!"(BAPEL $B$N>-Mh$N3HD%$N5DO@$r$7$?$j$9$k$3$H$,$G$-$^$9!#(BAPEL ML $B$K(B
+$B;22C$9$k$K$O!"6u$NEE;R%a!<%k$r(B
- apel-en-ctl@m17n.org ($B1Q8l(B)
- apel-ja-ctl@m17n.org ($BF|K\8l(B)
+ apel-en-ctl@m17n.org ($B1Q8l(B)
+ apel-ja-ctl@m17n.org ($BF|K\8l(B)
- $B$KAw$C$F$/$@$5$$!#(B
+$B$KAw$C$F$/$@$5$$!#(B
-Anonymous FTP
-=============
+* Anonymous FTP
- $B:G?7$N(B APEL $B$N%j%j!<%9$O0J2<$N>l=j$+$i<hF@$G$-$^$9(B:
+$B:G?7$N(B APEL $B$N%j%j!<%9$O0J2<$N>l=j$+$i<hF@$G$-$^$9(B:
ftp://ftp.m17n.org/pub/mule/apel/
-CVS
-===
+* CVS
+
+APEL $B$N3+H/$O(B CVS $B$r;H$C$F$$$^$9!#:G?7$N3+H/%P!<%8%g%s$r(B CVS $B$G<hF@$G(B
+$B$-$^$9!#(B
+
+** cvs login ($B0l2sL\$@$1(B)
- APEL $B$N3+H/$O(B CVS $B$r;H$C$F$$$^$9!#:G?7$N3+H/%P!<%8%g%s$r(B CVS $B$G(B
- $B<hF@$G$-$^$9!#(B
+ % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root login
-(0) cvs login ($B0l2sL\$@$1(B)
+ CVS password: [CR] # $B6uJ8;zNs(B
- % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root login
+** checkout
- CVS password: [CR] # $B6uJ8;zNs(B
+ % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root checkout apel
-(1) checkout
+CVS $B$K4p$E$$$?3+H/$K;22C$7$?$$$H$-$O!"(B
- % cvs -d :pserver:anonymous@cvs.m17n.org:/cvs/root checkout apel
+ cvs@cvs.m17n.org
- CVS $B$K4p$E$$$?3+H/$K;22C$7$?$$$H$-$O!"(B
+$B$K%"%+%&%s%HL>$H!"(Bssh $B$N8x3+80$rAw$C$F$/$@$5$$!#(Bssh $B7PM3$G$O!"(Bcvsroot
+$B$O(B :ext:cvs@cvs.m17n.org:/cvs/root $B$H$J$j$^$9!#(B
- cvs@cvs.m17n.org
+$B$I$&$7$F$b(B ssh $B$,;H$($J$$>l9g!"(Bpserver $B7PM3$G$b3+H/$K;22C$G$-$^$9!#$3(B
+$B$N>l9g!"(BUNIX $B$N(B /etc/passwd $BMM<0$G0E9f2=$5$l$?%Q%9%o!<%I$rAw$C$F2<$5$$!#(B
+$B$3$N>l9g(B cvsroot $B$O(B :pserver:<$B%"%+%&%s%HL>(B>@cvs.m17n.org:/cvs/root $B$H(B
+$B$J$j$^$9!#(B
- $B$K%"%+%&%s%HL>$H!"(BUNIX $B$N(B /etc/passwd $BMM<0$G0E9f2=$5$l$?%Q%9%o!<%I$r(B
- $BAw$C$F$/$@$5$$!#3+$+$l$?3+H/$K;22C$7$F$/$@$5$k$3$H$r4|BT$7$^$9!#(B
+$B3+$+$l$?3+H/$K;22C$7$F$/$@$5$k$3$H$r4|BT$7$^$9!#(B
View
105 alist.el
@@ -1,11 +1,11 @@
-;;; alist.el --- utility functions about association-list
+;;; alist.el --- utility functions for association list
-;; Copyright (C) 1993,1994,1995,1996,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1993,1994,1995,1996,1998,2000 Free Software Foundation, Inc.
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
;; Keywords: alist
-;; This file is part of APEL (A Portable Emacs Library).
+;; This file is part of GNU Emacs.
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
@@ -25,76 +25,71 @@
;;; Code:
;;;###autoload
-(defun 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.
-\[tomo's ELIS like function]"
- (let ((pair (assoc item alist)))
- (if pair
+(defun put-alist (key value alist)
+ "Set cdr of an element (KEY . ...) in ALIST to VALUE and return ALIST.
+If there is no such element, create a new pair (KEY . VALUE) and
+return a new alist whose car is the new pair and cdr is ALIST."
+ (let ((elm (assoc key alist)))
+ (if elm
(progn
- (setcdr pair value)
+ (setcdr elm value)
alist)
- (cons (cons item value) alist)
- )))
+ (cons (cons key value) alist))))
;;;###autoload
-(defun del-alist (item alist)
- "If there is a pair whose key is ITEM, delete it from ALIST.
-\[tomo's ELIS emulating function]"
- (if (equal item (car (car alist)))
- (cdr alist)
- (let ((pr alist)
- (r (cdr alist))
- )
- (catch 'tag
- (while (not (null r))
- (if (equal item (car (car r)))
- (progn
- (rplacd pr (cdr r))
- (throw 'tag alist)))
- (setq pr r)
- (setq r (cdr r))
- )
- alist))))
+(defun del-alist (key alist)
+ "Delete an element whose car equals KEY from ALIST.
+Return the modified ALIST."
+ (let ((pair (assoc key alist)))
+ (if pair
+ (delq pair alist)
+ alist)))
;;;###autoload
-(defun set-alist (symbol item value)
- "Modify a alist indicated by SYMBOL to set VALUE to ITEM."
+(defun set-alist (symbol key value)
+ "Set cdr of an element (KEY . ...) in the alist bound to SYMBOL to VALUE."
(or (boundp symbol)
- (set symbol nil)
- )
- (set symbol (put-alist item value (symbol-value symbol)))
- )
+ (set symbol nil))
+ (set symbol (put-alist key value (symbol-value symbol))))
;;;###autoload
-(defun remove-alist (symbol item)
- "Remove ITEM from the alist indicated by SYMBOL."
+(defun remove-alist (symbol key)
+ "Delete an element whose car equals KEY from the alist bound to SYMBOL."
(and (boundp symbol)
- (set symbol (del-alist item (symbol-value symbol)))
- ))
+ (set symbol (del-alist key (symbol-value symbol)))))
;;;###autoload
(defun modify-alist (modifier default)
- "Modify alist DEFAULT into alist MODIFIER."
+ "Store elements in the alist MODIFIER in the alist DEFAULT.
+Return the modified alist."
(mapcar (function
(lambda (as)
- (setq default (put-alist (car as)(cdr as) default))
- ))
+ (setq default (put-alist (car as)(cdr as) default))))
modifier)
default)
;;;###autoload
-(defun set-modified-alist (sym modifier)
- "Modify a value of a symbol SYM into alist MODIFIER.
-The symbol SYM should be alist. If it is not bound,
-its value regard as nil."
- (if (not (boundp sym))
- (set sym nil)
- )
- (set sym (modify-alist modifier (eval sym)))
- )
+(defun set-modified-alist (symbol modifier)
+ "Store elements in the alist MODIFIER in an alist bound to SYMBOL.
+If SYMBOL is not bound, set it to nil at first."
+ (if (not (boundp symbol))
+ (set symbol nil))
+ (set symbol (modify-alist modifier (eval symbol))))
+
+
+;;; @ association-vector-list
+;;;
+
+;;;###autoload
+(defun vassoc (key avlist)
+ "Search AVLIST for an element whose first element equals KEY.
+AVLIST is a list of vectors.
+See also `assoc'."
+ (while (and avlist
+ (not (equal key (aref (car avlist) 0))))
+ (setq avlist (cdr avlist)))
+ (and avlist
+ (car avlist)))
;;; @ end
View
4 apel-ver.el
@@ -39,8 +39,8 @@
;; (product-define "APEL" nil '(9 23)) ; comment.
;; (product-define "APEL" nil '(10 0)) ; Released 24 December 1999
;; (product-define "APEL" nil '(10 1)) ; Released 20 January 2000
- (product-define "APEL" nil '(10 2)) ; Released 01 March 2000
- ;; (product-define "APEL" nil '(10 3))
+ ;; (product-define "APEL" nil '(10 2)) ; Released 01 March 2000
+ (product-define "APEL" nil '(10 3)) ; Released 30 December 2000
)
(defun apel-version ()
View
44 install.el
@@ -191,6 +191,50 @@
(install-detect-elisp-directory))
+;;; @ for XEmacs package system
+;;;
+
+(defun install-update-package-files (package dir &optional just-print)
+ (cond
+ (just-print
+ (princ (format "Updating autoloads in directory %s..\n\n" dir))
+
+ (princ (format "Processing %s\n" dir))
+ (princ "Generating custom-load.el...\n\n")
+
+ (princ (format "Compiling %s...\n"
+ (expand-file-name "auto-autoloads.el" dir)))
+ (princ (format "Wrote %s\n"
+ (expand-file-name "auto-autoloads.elc" dir)))
+
+ (princ (format "Compiling %s...\n"
+ (expand-file-name "custom-load.el" dir)))
+ (princ (format "Wrote %s\n"
+ (expand-file-name "custom-load.elc" dir))))
+ (t
+ (setq autoload-package-name package)
+
+ (let ((command-line-args-left (list dir)))
+ (batch-update-directory))
+
+ (let ((command-line-args-left (list dir)))
+ (Custom-make-dependencies))
+
+ (byte-compile-file (expand-file-name "auto-autoloads.el" dir))
+ (byte-compile-file (expand-file-name "custom-load.el" dir)))))
+
+
+;;; @ Other Utilities
+;;;
+
+(defun install-just-print-p ()
+ (let ((flag (getenv "MAKEFLAGS"))
+ (case-fold-search nil))
+ (princ (format "%s\n" flag))
+ (if flag
+ (string-match "^\\(\\(--[^ ]+ \\)+-\\|[^ =-]\\)*n" flag))))
+
+
;;; @ end
;;;
View
26 mcharset.el
@@ -1,6 +1,6 @@
;;; mcharset.el --- MIME charset API
-;; Copyright (C) 1997,1998,1999 Free Software Foundation, Inc.
+;; Copyright (C) 1997,1998,1999,2000 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <tomo@m17n.org>
;; Keywords: emulation, compatibility, Mule
@@ -28,28 +28,18 @@
(require 'pcustom)
(cond ((featurep 'mule)
- (cond ((featurep 'xemacs)
- (require 'mcs-xm)
- )
- ((>= emacs-major-version 20)
- (require 'mcs-e20)
- )
- (t
- ;; for MULE 1.* and 2.*
- (require 'mcs-om)
- ))
- )
+ (if (>= emacs-major-version 20)
+ (require 'mcs-20)
+ ;; for MULE 1.* and 2.*
+ (require 'mcs-om)))
((boundp 'NEMACS)
;; for Nemacs and Nepoch
- (require 'mcs-nemacs)
- )
+ (require 'mcs-nemacs))
(t
- (require 'mcs-ltn1)
- ))
+ (require 'mcs-ltn1)))
(defcustom default-mime-charset-for-write
- (if (and (fboundp 'find-coding-system)
- (find-coding-system 'utf-8))
+ (if (mime-charset-p 'utf-8)
'utf-8
default-mime-charset)
"Default value of MIME-charset for encoding.
View
15 mcs-20.el
@@ -1,8 +1,8 @@
;;; mcs-20.el --- MIME charset implementation for Emacs 20 and XEmacs/mule
-;; Copyright (C) 1997,1998,1999 Free Software Foundation, Inc.
+;; Copyright (C) 1997,1998,1999,2000 Free Software Foundation, Inc.
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
;; Keywords: emulation, compatibility, Mule
;; This file is part of APEL (A Portable Emacs Library).
@@ -29,10 +29,13 @@
;;; Code:
-(require 'poem)
-(require 'pcustom)
+(require 'custom)
(eval-when-compile (require 'wid-edit))
+(if (featurep 'xemacs)
+ (require 'mcs-xm)
+ (require 'mcs-e20))
+
;;; @ MIME charset
;;;
@@ -100,6 +103,8 @@ is specified, it is used as line break code type of coding-system."
charset lbt cs)
))))
+(defalias 'mime-charset-p 'mime-charset-to-coding-system)
+
(defvar widget-mime-charset-prompt-value-history nil
"History of input to `widget-mime-charset-prompt-value'.")
@@ -132,7 +137,7 @@ is specified, it is used as line break code type of coding-system."
(widget-apply widget :notify widget event)
(widget-setup)))
-(defcustom default-mime-charset 'x-ctext
+(defcustom default-mime-charset 'x-unknown
"Default value of MIME-charset.
It is used when MIME-charset is not specified.
It must be symbol."
View
10 mcs-e20.el
@@ -1,6 +1,6 @@
;;; mcs-e20.el --- MIME charset implementation for Emacs 20.1 and 20.2
-;; Copyright (C) 1996,1997,1998,1999 Free Software Foundation, Inc.
+;; Copyright (C) 1996,1997,1998,1999,2000 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <tomo@m17n.org>
;; Keywords: emulation, compatibility, Mule
@@ -28,10 +28,8 @@
;;; Code:
-(eval-when-compile
- (require 'static)
- (require 'poem)
- )
+(require 'pces)
+(eval-when-compile (require 'static))
(defsubst encode-mime-charset-region (start end charset &optional lbt)
"Encode the text between START and END as MIME CHARSET."
@@ -177,8 +175,6 @@ Return nil if corresponding MIME-charset is not found."
;;; @ end
;;;
-(require 'mcs-20)
-
(require 'product)
(product-provide (provide 'mcs-e20) (require 'apel-ver))
View
12 mcs-ltn1.el
@@ -1,9 +1,9 @@
;;; mcs-ltn1.el --- MIME charset implementation for Emacs 19
;;; and XEmacs without MULE
-;; Copyright (C) 1995,1996,1997,1998 MORIOKA Tomohiko
+;; Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
;; Keywords: emulation, compatibility, Mule
;; This file is part of APEL (A Portable Emacs Library).
@@ -40,11 +40,11 @@
(defun mime-charset-to-coding-system (charset)
(if (stringp charset)
- (setq charset (intern (downcase charset)))
- )
+ (setq charset (intern (downcase charset))))
(if (memq charset (list 'us-ascii default-mime-charset))
- charset
- ))
+ charset))
+
+(defalias 'mime-charset-p 'mime-charset-to-coding-system)
(defun detect-mime-charset-region (start end)
"Return MIME charset for region between START and END."
View
6 mcs-nemacs.el
@@ -1,8 +1,8 @@
;;; mcs-nemacs.el --- MIME charset implementation for Nemacs
-;; Copyright (C) 1995,1996,1997,1998 MORIOKA Tomohiko
+;; Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
;; Keywords: emulation, compatibility, Mule
;; This file is part of APEL (A Portable Emacs Library).
@@ -48,6 +48,8 @@
)
(cdr (assq charset mime-charset-coding-system-alist)))
+(fset 'mime-charset-p 'mime-charset-to-coding-system)
+
(defun detect-mime-charset-region (start end)
"Return MIME charset for region between START and END.
\[emu-nemacs.el]"
View
56 mcs-xm.el
@@ -1,9 +1,9 @@
;;; mcs-xm.el --- MIME charset implementation for XEmacs-mule
-;; Copyright (C) 1997,1998,1999 Free Software Foundation, Inc.
+;; Copyright (C) 1997,1998,1999,2000 Free Software Foundation, Inc.
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Keywords: emulation, compatibility, Mule
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
+;; Keywords: MIME-charset, coding-system, emulation, compatibility, Mule
;; This file is part of APEL (A Portable Emacs Library).
@@ -29,7 +29,7 @@
;;; Code:
-(require 'mcs-20)
+(require 'poem)
(defun encode-mime-charset-region (start end charset &optional lbt)
@@ -103,7 +103,7 @@
(defvar charsets-mime-charset-alist
- '(((ascii) . us-ascii)
+ `(((ascii) . us-ascii)
((ascii latin-iso8859-1) . iso-8859-1)
((ascii latin-iso8859-2) . iso-8859-2)
((ascii latin-iso8859-3) . iso-8859-3)
@@ -114,18 +114,48 @@
((ascii greek-iso8859-7) . iso-8859-7)
((ascii hebrew-iso8859-8) . iso-8859-8)
((ascii latin-iso8859-9) . iso-8859-9)
- ((ascii latin-jisx0201
- japanese-jisx0208-1978 japanese-jisx0208) . iso-2022-jp)
- ((ascii latin-jisx0201
- katakana-jisx0201 japanese-jisx0208) . shift_jis)
+ ,(if (featurep 'utf-2000)
+ '((ascii latin-jisx0201
+ japanese-jisx0208-1978
+ japanese-jisx0208
+ japanese-jisx0208-1990) . iso-2022-jp)
+ '((ascii latin-jisx0201
+ japanese-jisx0208-1978 japanese-jisx0208)
+ . iso-2022-jp))
+ ,(if (featurep 'utf-2000)
+ '((ascii latin-jisx0201
+ japanese-jisx0208-1978
+ japanese-jisx0208
+ japanese-jisx0208-1990
+ japanese-jisx0213-1
+ japanese-jisx0213-2) . iso-2022-jp-3)
+ '((ascii latin-jisx0201
+ japanese-jisx0208-1978 japanese-jisx0208
+ japanese-jisx0213-1
+ japanese-jisx0213-2) . iso-2022-jp-3))
+ ,(if (featurep 'utf-2000)
+ '((ascii latin-jisx0201 katakana-jisx0201
+ japanese-jisx0208-1990) . shift_jis)
+ '((ascii latin-jisx0201
+ katakana-jisx0201 japanese-jisx0208) . shift_jis))
((ascii korean-ksc5601) . euc-kr)
((ascii chinese-gb2312) . gb2312)
((ascii chinese-big5-1 chinese-big5-2) . big5)
((ascii thai-xtis) . tis-620)
- ((ascii latin-iso8859-1 greek-iso8859-7
- latin-jisx0201 japanese-jisx0208-1978
- chinese-gb2312 japanese-jisx0208
- korean-ksc5601 japanese-jisx0212) . iso-2022-jp-2)
+ ,(if (featurep 'utf-2000)
+ '((ascii latin-jisx0201 latin-iso8859-1
+ greek-iso8859-7
+ japanese-jisx0208-1978 japanese-jisx0208
+ japanese-jisx0208-1990
+ japanese-jisx0212
+ chinese-gb2312
+ korean-ksc5601) . iso-2022-jp-2)
+ '((ascii latin-jisx0201 latin-iso8859-1
+ greek-iso8859-7
+ japanese-jisx0208-1978 japanese-jisx0208
+ japanese-jisx0212
+ chinese-gb2312
+ korean-ksc5601) . iso-2022-jp-2))
;; ((ascii latin-iso8859-1 greek-iso8859-7
;; latin-jisx0201 japanese-jisx0208-1978
;; chinese-gb2312 japanese-jisx0208
View
16 path-util.el
@@ -54,18 +54,16 @@ You can specify following OPTIONS:
(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))
- )
+ (throw 'tag p))
+ (setq rest (cdr rest))))
+ (not (or (member p load-path)
+ (if (string-match "/$" p)
+ (member (substring p 0 (1- (length p))) load-path)
+ (member (file-name-as-directory p) load-path)))))
(setq load-path
(if (memq 'append options)
(append load-path (list p))
- (cons p load-path)
- ))
- )))
+ (cons p load-path))))))
;;;###autoload
(defun add-latest-path (pattern &optional all-paths)
View
20 pccl-20.el
<