From 969bd1326a0c4caac561a36581540058722be398 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 11 Mar 1998 13:04:05 +0000 Subject: [PATCH] APEL 3.4. --- ChangeLog | 25 +++++++++++++++++++++++++ Makefile | 4 ++-- emu-e20.el | 35 ++++++++++++++++++----------------- emu-mule.el | 4 +++- emu-x20.el | 29 +++++++++++------------------ emu.el | 7 +++++-- file-detect.el | 9 ++++++++- richtext.el | 4 +++- 8 files changed, 75 insertions(+), 42 deletions(-) diff --git a/ChangeLog b/ChangeLog index ea2837a..f0edec8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,25 @@ +1997-07-14 MORIOKA Tomohiko + + * emu: Version 7.44 was released. + * APEL: Version 3.4 was released. + +1997-07-13 MORIOKA Tomohiko + + * std11-parse.el (std11-parse-ascii-token): Allow non-ASCII + characters in comments. + +1997-06-28 MORIOKA Tomohiko + + * file-detect.el: Add autoload comments for function `add-path', + `add-latest-path', `get-latest-path', `file-installed-p', + `exec-installed-p', `module-installed-p' and variable + `exec-suffix-list'. + +Sat May 10 19:39:12 1997 MORIOKA Tomohiko + + * README.en (What's APEL?): Add std11 and mule-caesar.el. + + 1997-05-09 MORIOKA Tomohiko * emu: Version 7.43.1 was released. @@ -31,6 +53,9 @@ Thu Apr 3 17:14:39 1997 MORIOKA Tomohiko 1997-03-20 MORIOKA Tomohiko * APEL: Version 3.3 was released. + + * APEL-CFG (EMU_PREFIX, EMU_DIR): New variables. + * APEL-MK: install emu. Thu Mar 20 06:09:03 1997 MORIOKA Tomohiko diff --git a/Makefile b/Makefile index 8560811..8df9f60 100644 --- a/Makefile +++ b/Makefile @@ -1,8 +1,8 @@ # -# $Id: Makefile,v 0.5 1997/04/30 12:45:32 morioka Exp morioka $ +# $Id: Makefile,v 0.6 1997/07/14 13:31:48 morioka Exp $ # -VERSION = 3.3.2 +VERSION = 3.4 TAR = gtar RM = /bin/rm -f diff --git a/emu-e20.el b/emu-e20.el index abf7911..f545fb3 100644 --- a/emu-e20.el +++ b/emu-e20.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko -;; Version: $Id: emu-e20.el,v 7.13 1997/03/10 05:36:04 morioka Exp $ +;; Version: $Id: emu-e20.el,v 7.15 1997/07/13 06:23:00 morioka Exp $ ;; Keywords: emulation, compatibility, Mule ;; This file is part of emu. @@ -23,6 +23,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;; This module requires Emacs 20.0.90 or later. + ;;; Code: ;;; @ version specific features @@ -50,15 +54,13 @@ ;; (defalias 'charset-columns 'charset-width) (defun find-non-ascii-charset-string (string) - "Return a list of charsets in the STRING except ascii. -\[emu-e20.el; Mule emulating function]" + "Return a list of charsets in the STRING except ascii." (delq 'ascii (find-charset-string string)) ) (defun find-non-ascii-charset-region (start end) "Return a list of charsets except ascii -in the region between START and END. -\[emu-e20.el; Mule emulating function]" +in the region between START and END." (delq 'ascii (find-charset-string (buffer-substring start end))) ) @@ -147,10 +149,13 @@ find-file-hooks, etc. (defvar mime-charset-coding-system-alist '((x-ctext . ctext) (gb2312 . cn-gb-2312) - (iso-2022-jp-2 . iso-2022-ss2-7) + (iso-2022-jp-2 . iso-2022-7bit-ss2) )) (defun mime-charset-to-coding-system (charset &optional lbt) + "Return coding-system corresponding with charset. +If optional argument LBT (`unix', `dos' or `mac') is specified, it is +used as line break code type of coding-system." (if (stringp charset) (setq charset (intern (downcase charset))) ) @@ -163,34 +168,34 @@ find-file-hooks, etc. cs))) (defun detect-mime-charset-region (start end) - "Return MIME charset for region between START and END. [emu-e20.el]" + "Return MIME charset for region between START and END." (charsets-to-mime-charset (find-charset-string (buffer-substring start end)) )) (defun encode-mime-charset-region (start end charset) - "Encode the text between START and END as MIME CHARSET. [emu-e20.el]" + "Encode the text between START and END as MIME CHARSET." (let ((cs (mime-charset-to-coding-system charset))) (if cs (encode-coding-region start end cs) ))) (defun decode-mime-charset-region (start end charset) - "Decode the text between START and END as MIME CHARSET. [emu-e20.el]" + "Decode the text between START and END as MIME CHARSET." (let ((cs (mime-charset-to-coding-system charset))) (if cs (decode-coding-region start end cs) ))) (defun encode-mime-charset-string (string charset) - "Encode the STRING as MIME CHARSET. [emu-e20.el]" + "Encode the STRING as MIME CHARSET." (let ((cs (mime-charset-to-coding-system charset))) (if cs (encode-coding-string string cs) string))) (defun decode-mime-charset-string (string charset) - "Decode the STRING as MIME CHARSET. [emu-e20.el]" + "Decode the STRING as MIME CHARSET." (let ((cs (mime-charset-to-coding-system charset))) (if cs (decode-coding-string string cs) @@ -209,13 +214,10 @@ find-file-hooks, etc. ;;; ;;; You should not use them. -(defalias 'make-character 'make-char) - (defun char-category (character) "Return string of category mnemonics for CHAR in TABLE. CHAR can be any multilingual character -TABLE defaults to the current buffer's category table. -\[emu-e20.el; Mule emulating function]" +TABLE defaults to the current buffer's category table." (category-set-mnemonics (char-category-set character)) ) @@ -228,8 +230,7 @@ TABLE defaults to the current buffer's category table. (defalias 'sset 'store-substring) (defun string-to-char-list (string) - "Return a list of which elements are characters in the STRING. -\[emu-e20.el; Mule 2.3 emulating function]" + "Return a list of which elements are characters in the STRING." (let* ((len (length string)) (i 0) l chr) diff --git a/emu-mule.el b/emu-mule.el index 07be434..eee6a29 100644 --- a/emu-mule.el +++ b/emu-mule.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1995,1996,1997 MORIOKA Tomohiko ;; Author: MORIOKA Tomohiko -;; Version: $Id: emu-mule.el,v 7.62 1997/04/05 16:18:10 morioka Exp $ +;; Version: $Id: emu-mule.el,v 7.63 1997/05/22 04:46:57 morioka Exp $ ;; Keywords: emulation, compatibility, Mule ;; This file is part of emu. @@ -58,6 +58,8 @@ ;;; @ character set ;;; +(defalias 'make-char 'make-character) + (defalias 'find-non-ascii-charset-string 'find-charset-string) (defalias 'find-non-ascii-charset-region 'find-charset-region) diff --git a/emu-x20.el b/emu-x20.el index a457c50..004ce9f 100644 --- a/emu-x20.el +++ b/emu-x20.el @@ -3,33 +3,32 @@ ;; Copyright (C) 1994,1995,1996,1997 MORIOKA Tomohiko ;; Author: MORIOKA Tomohiko -;; Version: $Id: emu-x20.el,v 7.55 1997/05/08 22:21:36 morioka Exp $ +;; Version: $Id: emu-x20.el,v 7.58 1997/06/08 17:34:17 morioka Exp $ ;; Keywords: emulation, compatibility, Mule, XEmacs ;; This file is part of XEmacs. -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2, or (at -;; your option) any later version. +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. -;; This program is distributed in the hope that it will be useful, but +;; XEmacs is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with GNU XEmacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. ;;; Commentary: -;; This module requires XEmacs 20.1 b12 or later with mule. +;; This module requires XEmacs 20.3-b5 or later with mule. ;;; Code: -(require 'cyrillic) (require 'emu-xemacs) @@ -111,13 +110,7 @@ find-file-hooks, etc. (defvar default-mime-charset 'x-ctext) (defvar mime-charset-coding-system-alist - '((iso-8859-1 . ctext) - (x-ctext . ctext) - (hz-gb-2312 . hz) - (cn-gb-2312 . euc-china) - (gb2312 . euc-china) - (cn-big5 . big5) - (koi8-r . koi8) + '((x-ctext . ctext) (iso-2022-jp-2 . iso-2022-ss2-7) )) diff --git a/emu.el b/emu.el index bbb24c5..ad4a064 100644 --- a/emu.el +++ b/emu.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko -;; Version: $Id: emu.el,v 7.43 1997/04/08 09:47:40 morioka Exp $ +;; Version: $Id: emu.el,v 7.44 1997/06/28 10:21:24 morioka Exp $ ;; Keywords: emulation, compatibility, NEmacs, MULE, Emacs/mule, XEmacs ;; This file is part of emu. @@ -291,7 +291,10 @@ This function does not move point. [XEmacs emulating function]" ;;; @ for text/richtext and text/enriched ;;; -(cond ((or running-emacs-19_29-or-later running-xemacs-19_14-or-later) +(cond ((fboundp 'richtext-decode) + ;; have richtext.el + ) + ((or running-emacs-19_29-or-later running-xemacs-19_14-or-later) ;; have enriched.el (autoload 'richtext-decode "richtext") (or (assq 'text/richtext format-alist) diff --git a/file-detect.el b/file-detect.el index 2d8731a..019030d 100644 --- a/file-detect.el +++ b/file-detect.el @@ -4,7 +4,7 @@ ;; Author: MORIOKA Tomohiko ;; Version: -;; $Id: file-detect.el,v 3.3 1997/03/20 06:08:29 morioka Exp $ +;; $Id: file-detect.el,v 3.4 1997/06/28 07:18:31 morioka Exp $ ;; Keywords: install, module ;; This file is part of APEL (A Portable Emacs Library). @@ -28,6 +28,7 @@ (defvar default-load-path load-path) +;;;###autoload (defun add-path (path &rest options) "Add PATH to `load-path' if it exists under `default-load-path' directories and it does not exist in `load-path'. @@ -63,6 +64,7 @@ You can specify following OPTIONS: )) ))) +;;;###autoload (defun add-latest-path (pattern &optional all-paths) "Add latest path matched by PATTERN to `load-path' if it exists under `default-load-path' directories @@ -75,6 +77,7 @@ of load-path instead of default-load-path. [file-detect.el]" (add-to-list 'load-path path) ))) +;;;###autoload (defun get-latest-path (pattern &optional all-paths) "Return latest directory in default-load-path which is matched to regexp PATTERN. @@ -101,6 +104,7 @@ it is searched from all of load-path instead of default-load-path." (setq paths (cdr paths)) )))) +;;;###autoload (defun file-installed-p (file &optional paths) "Return absolute-path of FILE if FILE exists in PATHS. If PATHS is omitted, `load-path' is used." @@ -117,9 +121,11 @@ If PATHS is omitted, `load-path' is used." (setq paths (cdr paths)) )))) +;;;###autoload (defvar exec-suffix-list '("") "*List of suffixes for executable.") +;;;###autoload (defun exec-installed-p (file &optional paths suffixes) "Return absolute-path of FILE if FILE exists in PATHS. If PATHS is omitted, `exec-path' is used. @@ -145,6 +151,7 @@ If suffixes is omitted, `exec-suffix-list' is used." (setq paths (cdr paths)) ))) +;;;###autoload (defun module-installed-p (module &optional paths) "Return t if module is provided or exists in PATHS. If PATHS is omitted, `load-path' is used." diff --git a/richtext.el b/richtext.el index 677711a..07e2f64 100644 --- a/richtext.el +++ b/richtext.el @@ -4,7 +4,7 @@ ;; Author: MORIOKA Tomohiko ;; Created: 1995/7/15 -;; Version: $Id: richtext.el,v 3.5 1997/01/30 16:55:00 morioka Exp $ +;; Version: $Id: richtext.el,v 3.6 1997/06/28 17:58:34 morioka Exp $ ;; Keywords: wp, faces, MIME, multimedia ;; This file is not part of GNU Emacs yet. @@ -76,6 +76,7 @@ of this structure.") ;;; @ encoder ;;; +;;;###autoload (defun richtext-encode (from to) (if enriched-verbose (message "Richtext: encoding document...")) (save-restriction @@ -136,6 +137,7 @@ Return value is \(begin end name positive-p), or nil if none was found." )) )))) +;;;###autoload (defun richtext-decode (from to) (if enriched-verbose (message "Richtext: decoding document...")) (save-excursion -- 1.7.10.4