+Thu Sep 5 13:28:51 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.61.2 was released.
+
+ * emu-nemacs.el (encode-coding-region): New function.
+
+ * emu-nemacs.el (decode-coding-region): New function.
+
+ * emu-nemacs.el (encode-coding-string): New function.
+
+Thu Sep 5 12:29:01 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-e19.el (decode-coding-region): New function.
+ (encode-coding-region): New function.
+
+ * emu-e19.el (encode-coding-string): New function.
+
+Thu Sep 5 08:58:28 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-mule.el (charsets-mime-charset-alist): add gb2312
+ charset. (cf. [kanji:704])
+
+ * smiley-mule.el: Comment was fixed. (cf. [tm-ja:2074])
+
+Wed Sep 4 21:20:32 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-mule.el (encode-coding-region): New function.
+
+ * tl-list.el (ASSOC): New function.
+
+Wed Sep 4 19:00:01 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * TL-ELS: add cless.el.
+
+ * tl-list.el: Use cless.el if new cl is installed.
+
+Wed Sep 4 18:39:20 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * cless.el: New module.
+
+Wed Sep 4 15:49:30 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * install.el (install-detect-elisp-directory): New function.
+
+Wed Sep 4 13:24:03 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * install.el (install-prefix): New variable.
+ (install-elisp-prefix): New variable.
+ (install-default-elisp-directory): New variable.
+
+Wed Sep 4 11:00:37 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu.el (buffer-live-p): New function. (cf. [tm-ja:2072])
+
+Wed Sep 4 01:25:35 1996 Katsumi Yamaoka <yamaoka@ga.sony.co.jp>
+
+ * smiley-mule.el: add DOC-strings for smiley-bitmap-for-*.
+
+\f
Tue Sep 3 15:02:47 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.61.1 was released.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Version:
-;; $Id: emu-e19.el,v 7.32 1996/08/17 03:25:51 morioka Exp $
+;; $Id: emu-e19.el,v 7.35 1996/09/05 12:29:01 morioka Exp $
;; Keywords: emulation, compatibility, mule, Latin-1
;; This file is part of tl (Tiny Library).
(list lc-ltn1)
))
-;;; @@ for Mule emulation
+;;; @@ for old MULE emulation
;;;
(defconst lc-ascii 0)
(defconst *ctext* nil)
(defconst *noconv* nil)
-(defun code-convert-string (str ic oc)
- "Convert code in STRING from SOURCE code to TARGET code,
-On successful converion, returns the result string,
-else returns nil. [emu-e19.el; Mule emulating function]"
- str)
-
-(defun code-convert-region (beg end ic oc)
- "Convert code of the text between BEGIN and END from SOURCE
-to TARGET. On successful conversion returns t,
-else returns nil. [emu-e19.el; Mule emulating function]"
- t)
-
(defun decode-coding-string (string coding-system)
"Decode the STRING which is encoded in CODING-SYSTEM.
-\[emu-e19.el]"
+\[emu-e19.el; EMACS 20 emulating function]"
+ string)
+
+(defun encode-coding-string (string coding-system)
+ "Encode the STRING as CODING-SYSTEM.
+\[emu-e19.el; EMACS 20 emulating function]"
string)
+(defun decode-coding-region (start end coding-system)
+ "Decode the text between START and END which is encoded in CODING-SYSTEM.
+\[emu-e19.el; EMACS 20 emulating function]"
+ 0)
+
+(defun encode-coding-region (start end coding-system)
+ "Encode the text between START and END to CODING-SYSTEM.
+\[emu-e19.el; EMACS 20 emulating function]"
+ 0)
+
(defun code-detect-region (beg end)
"Detect coding-system of the text in the region
between START and END. [emu-e19.el; Mule emulating function]"
)))
+;;; @@ for old MULE emulation
+;;;
+
+(defun code-convert-string (str ic oc)
+ "Convert code in STRING from SOURCE code to TARGET code,
+On successful converion, returns the result string,
+else returns nil. [emu-e19.el; old MULE emulating function]"
+ str)
+
+(defun code-convert-region (beg end ic oc)
+ "Convert code of the text between BEGIN and END from SOURCE
+to TARGET. On successful conversion returns t,
+else returns nil. [emu-e19.el; old MULE emulating function]"
+ t)
+
+
;;; @ MIME charset
;;;
(defun char-bytes (char)
"Return number of bytes a character in CHAR occupies in a buffer.
-\[emu-e19.el; Mule emulating function]"
+\[emu-e19.el; MULE emulating function]"
1)
(defalias 'char-length 'char-bytes)
\[emu-nemacs.el]"
1)
-;;; @@ for Mule emulation
+;;; @@ for old MULE emulation
;;;
(defalias 'char-width 'char-columns)
(defun truncate-string (str width &optional start-column)
"Truncate STR to fit in WIDTH columns.
Optional non-nil arg START-COLUMN specifies the starting column.
-\[emu-e19.el; Mule 2.3 emulating function]"
+\[emu-e19.el; MULE 2.3 emulating function]"
(or start-column
(setq start-column 0))
(substring str start-column width)
)
-;;; @@ for Mule emulation
+;;; @@ for old MULE emulation
;;;
(defalias 'string-width 'length)
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Version:
-;; $Id: emu-mule.el,v 7.48 1996/08/22 16:21:21 morioka Exp $
+;; $Id: emu-mule.el,v 7.50 1996/09/05 08:58:28 morioka Exp $
;; Keywords: emulation, compatibility, Mule
;; This file is part of tl (Tiny Library).
;;; @ coding system
;;;
+(defun encode-coding-region (start end coding-system)
+ "Encode the text between START and END to CODING-SYSTEM.
+\[emu-mule.el; EMACS 20 emulating function]"
+ (code-convert-region start end *internal* coding-system)
+ )
+
(defun decode-coding-string (str coding-system)
"Decode the string STR which is encoded in CODING-SYSTEM.
\[emu-mule.el]"
(cons (list lc-ascii lc-ltn5) 'iso-8859-9)
(cons (list lc-ascii lc-roman lc-jpold lc-jp) 'iso-2022-jp)
(cons (list lc-ascii lc-kr) 'euc-kr)
+ (cons (list lc-ascii lc-cn) 'gb2312)
(cons (list lc-ascii lc-big5-1 lc-big5-2) 'big5)
(cons (list lc-ascii lc-roman lc-ltn1 lc-grk
lc-jpold lc-cn lc-jp lc-kr lc-jp2) 'iso-2022-jp-2)
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Version:
-;; $Id: emu-nemacs.el,v 7.40 1996/08/18 06:39:40 morioka Exp $
+;; $Id: emu-nemacs.el,v 7.43 1996/09/05 13:28:51 morioka Exp $
;; Keywords: emulation, compatibility, NEmacs, mule
;; This file is part of tl (Tiny Library).
)
str)))
-;;; @@ for Mule emulation
+;;; @@ for old MULE emulation
;;;
(defconst lc-ascii 0)
(defconst *internal* 3)
(defconst *euc-japan* 3)
-(defun code-convert-string (str ic oc)
- "Convert code in STRING from SOURCE code to TARGET code,
-On successful converion, returns the result string,
-else returns nil. [emu-nemacs.el; Mule emulating function]"
- (if (not (eq ic oc))
- (convert-string-kanji-code str ic oc)
- str))
-
-(defun code-convert-region (beg end ic oc)
- "Convert code of the text between BEGIN and END from SOURCE
-to TARGET. On successful conversion returns t,
-else returns nil. [emu-nemacs.el; Mule emulating function]"
- (if (/= ic oc)
- (save-excursion
- (save-restriction
- (narrow-to-region beg end)
- (convert-region-kanji-code beg end ic oc)
- ))))
-
(defun decode-coding-string (string coding-system)
"Decode the STRING which is encoded in CODING-SYSTEM.
-\[emu-nemacs.el]"
+\[emu-nemacs.el; EMACS 20 emulating function]"
(if (eq coding-system 3)
string
(convert-string-kanji-code string coding-system 3)
))
+(defun encode-coding-string (string coding-system)
+ "Encode the STRING to CODING-SYSTEM.
+\[emu-nemacs.el; EMACS 20 emulating function]"
+ (if (eq coding-system 3)
+ string
+ (convert-string-kanji-code string 3 coding-system)
+ ))
+
+(defun decode-coding-region (start end coding-system)
+ "Decode the text between START and END which is encoded in CODING-SYSTEM.
+\[emu-nemacs.el; EMACS 20 emulating function]"
+ (if (/= ic oc)
+ (save-excursion
+ (save-restriction
+ (narrow-to-region start end)
+ (convert-region-kanji-code start end coding-system 3)
+ ))))
+
+(defun encode-coding-region (start end coding-system)
+ "Encode the text between START and END to CODING-SYSTEM.
+\[emu-nemacs.el; EMACS 20 emulating function]"
+ (if (/= ic oc)
+ (save-excursion
+ (save-restriction
+ (narrow-to-region start end)
+ (convert-region-kanji-code start end 3 coding-system)
+ ))))
+
(defun code-detect-region (start end)
"Detect coding-system of the text in the region between START and END.
\[emu-nemacs.el; Mule emulating function]"
(,@ body)
)))
+;;; @@ for old MULE emulation
+;;;
+
+(defun code-convert-string (str ic oc)
+ "Convert code in STRING from SOURCE code to TARGET code,
+On successful converion, returns the result string,
+else returns nil. [emu-nemacs.el; Mule emulating function]"
+ (if (not (eq ic oc))
+ (convert-string-kanji-code str ic oc)
+ str))
+
+(defun code-convert-region (beg end ic oc)
+ "Convert code of the text between BEGIN and END from SOURCE
+to TARGET. On successful conversion returns t,
+else returns nil. [emu-nemacs.el; Mule emulating function]"
+ (if (/= ic oc)
+ (save-excursion
+ (save-restriction
+ (narrow-to-region beg end)
+ (convert-region-kanji-code beg end ic oc)
+ ))))
+
;;; @ MIME charset
;;;
;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu.el,v 7.22 1996/08/18 07:30:38 morioka Exp $
+;; Version: $Id: emu.el,v 7.24 1996/09/04 15:49:30 morioka Exp $
;; Keywords: emulation, compatibility, NEmacs, Mule, XEmacs
;; This file is part of tl (Tiny Library).
default-mime-charset)))
-;;; @ Emacs 19.29 emulation
+;;; @ EMACS 19.29 emulation
;;;
(or (fboundp 'buffer-substring-no-properties)
(defun buffer-substring-no-properties (beg end)
- "Return the text from BEG to END, without text properties, as a string."
+ "Return the text from BEG to END, without text properties, as a string.
+\[emu.el; EMACS 19.29 emulating function]"
(let ((string (buffer-substring beg end)))
(tl:set-text-properties 0 (length string) nil string)
string))
If you want to use `add-to-list' on a variable that is not defined
until a certain package is loaded, you should put the call to `add-to-list'
into a hook function that will be run only after loading the package.
-\[emu.el; Emacs 19.30 emulating function]"
+\[emu.el; EMACS 19.30 emulating function]"
(or (member element (symbol-value list-var))
(set list-var (cons element (symbol-value list-var)))))
)
+;;; @ EMACS 19.32 emulation
+;;;
+
+(or (fboundp 'buffer-live-p)
+ (defun buffer-live-p (object)
+ "Return non-nil if OBJECT is a buffer which has not been killed.
+Value is nil if OBJECT is not a buffer or if it has been killed.
+\[emu.el; EMACS 19.32 emulating function]"
+ (and object
+ (get-buffer object)
+ (buffer-name (get-buffer object))
+ ))
+ )
+
+
;;; @ XEmacs emulation
;;;
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1996/8/18
-;; Version: $Id: install.el,v 1.6 1996/08/30 15:12:25 morioka Exp $
+;; Version: $Id: install.el,v 2.1 1996/09/04 13:57:50 morioka Exp $
;; Keywords: install
;; This file is part of tl (Tiny Library).
;;; Code:
+(require 'emu)
+(require 'file-detect)
+
+;;; @ compile Emacs Lisp files
+;;;
+
(defun compile-elisp-module (module &optional path every-time)
(setq module (expand-file-name (symbol-name module) path))
(let ((el-file (concat module ".el"))
modules))
+;;; @ install files
+;;;
+
(defvar install-overwritten-file-modes (+ (* 64 6)(* 8 4) 4))
(defun install-file (file src dest &optional move overwrite)
))
files))
+
+;;; @@ install Emacs Lisp files
+;;;
+
(defun install-elisp-module (module src dest)
(let (el-file elc-file)
(let ((name (symbol-name module)))
modules))
+;;; @ detect install path
+;;;
+
+(defvar install-prefix
+ (if (or running-emacs-18 running-xemacs)
+ (expand-file-name "../../.." exec-directory)
+ (expand-file-name "../../../.." data-directory)
+ )) ; install to shared directory (maybe "/usr/local")
+
+(defvar install-elisp-prefix
+ (if (>= emacs-major-version 19)
+ "site-lisp"
+ "local.lisp"))
+
+(defun install-detect-elisp-directory (&optional prefix elisp-prefix)
+ (or prefix
+ (setq prefix install-prefix)
+ )
+ (or elisp-prefix
+ (setq elisp-prefix install-elisp-prefix)
+ )
+ (or
+ (catch 'tag
+ (let ((rest default-load-path)
+ dir)
+ (while (setq dir (car rest))
+ (if (string-match
+ (concat "^"
+ (expand-file-name (concat ".*/" elisp-prefix) prefix)
+ "$")
+ dir)
+ (or (string-match (format "%d\\.%d"
+ emacs-major-version
+ emacs-minor-version) dir)
+ (throw 'tag dir)
+ ))
+ (setq rest (cdr rest))
+ )))
+ (expand-file-name (concat
+ (if running-emacs-19_29-or-later
+ "share/"
+ "lib/")
+ (cond ((boundp 'NEMACS) "nemacs/")
+ ((boundp 'MULE) "mule/")
+ (running-xemacs
+ (if (featurep 'mule)
+ "xmule/"
+ "xemacs/"))
+ (t "emacs/"))
+ elisp-prefix) prefix)
+ ))
+
+(defvar install-default-elisp-directory
+ (install-detect-elisp-directory))
+
+
;;; @ end
;;;
projects / elisp / apel.git / commitdiff