+Wed May 15 14:23:50 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.24 was released.
+
+ * tl-822.el (rfc822/lexical-analyze): Unnecessary local variable
+ `len' was abolished.
+
+Wed May 15 14:19:45 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl-822.el (rfc822/lexical-analyze): Unnecessary local variable
+ `i' was abolished.
+
+Wed May 15 14:12:22 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl-list.el (permute): Unnecessary local variable `ret' was
+ abolished.
+
+Wed May 15 14:05:34 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-xemacs.el: Function `string-to-int-list' for XEmacs 19 was
+ deleted, for XEmacs 20 with Mule was moved to emu-x20.el.
+
+ * emu-x20.el, emu-e19.el: rearrangement.
+
+Tue May 14 16:28:33 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-mule.el: rearrangement.
+
+ * emu-mule.el (string-to-int-list): New alias; moved from emu-19.el.
+
+Tue May 14 16:23:29 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-e19.el (string-to-int-list): New alias; moved from emu-19.el.
+
+ * emu-19.el: Alias `string-to-int-list' was moved to emu-e19.el
+ and emu-mule.el.
+
+Tue May 14 06:55:46 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mu-cite.el (compress-cited-prefix): New function.
+
+\f
Tue May 14 02:41:20 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.22.5 was released.
tl/*.el tl/*.bdf \
tl/doc/*.texi tl/ChangeLog
-TARFILE = tl-7.22.4.tar
+TARFILE = tl-7.24.tar
elc:
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-19.el,v 7.3 1996/04/24 11:57:52 morioka Exp $
+;;; $Id: emu-19.el,v 7.4 1996/05/14 16:22:38 morioka Exp $
;;; Keywords: emulation, compatibility
;;;
;;; This file is part of tl (Tiny Library).
"")
))
-(fset 'string-to-int-list 'string-to-char-list)
-
;;; @ end
;;;
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-e19.el,v 7.12 1996/05/09 14:26:27 morioka Exp $
+;;; $Id: emu-e19.el,v 7.14 1996/05/15 14:00:04 morioka Exp $
;;; Keywords: emulation, compatibility, Mule, Latin-1
;;;
;;; This file is part of tl (Tiny Library).
;;;
;;; Code:
+;;; @ version and variant specific features
+;;;
+
+(cond (running-xemacs
+ (require 'emu-xemacs))
+ (running-emacs-19
+ (require 'emu-19)
+ ))
+
+
;;; @ character set
;;;
(mapcar (function identity) str)
)
+(defalias 'string-to-int-list 'string-to-char-list)
+
(defalias 'sref 'aref)
(defun truncate-string (str width &optional start-column)
)
-;;; @ etc
-;;;
-
-(cond (running-xemacs
- (require 'emu-xemacs))
- (running-emacs-19
- (require 'emu-19)
- ))
-
-
;;; @ end
;;;
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-mule.el,v 7.11 1996/05/09 16:38:20 morioka Exp $
+;;; $Id: emu-mule.el,v 7.13 1996/05/14 16:28:33 morioka Exp $
;;; Keywords: emulation, compatibility, Mule
;;;
;;; This file is part of tl (Tiny Library).
;;;
;;; Code:
+;;; @ version specific features
+;;;
+
+(cond (running-emacs-19
+ (require 'emu-19)
+
+ ;; Suggested by SASAKI Osamu <osamu@shuugr.bekkoame.or.jp>
+ ;; (cf. [os2-emacs-ja:78])
+ (defun fontset-pixel-size (fontset)
+ (let* ((font (get-font-info
+ (aref (cdr (get-fontset-info fontset)) 0)))
+ (open (aref font 4)))
+ (if (= open 1)
+ (aref font 5)
+ (if (= open 0)
+ (let ((pat (aref font 1)))
+ (if (string-match "-[0-9]+-" pat)
+ (string-to-number
+ (substring
+ pat (1+ (match-beginning 0)) (1- (match-end 0))))
+ 0)))
+ )))
+ )
+ (running-emacs-18
+ (require 'emu-18)
+ (defun tl:make-overlay (beg end &optional buffer type))
+ (defun tl:overlay-put (overlay prop value))
+ ))
+
+
;;; @ character set
;;;
)
-;;; @ version specific features
+;;; @ character and string
;;;
-(cond (running-emacs-19
- (require 'emu-19)
-
- ;; Suggested by SASAKI Osamu <osamu@shuugr.bekkoame.or.jp>
- ;; (cf. [os2-emacs-ja:78])
- (defun fontset-pixel-size (fontset)
- (let* ((font (get-font-info
- (aref (cdr (get-fontset-info fontset)) 0)))
- (open (aref font 4)))
- (if (= open 1)
- (aref font 5)
- (if (= open 0)
- (let ((pat (aref font 1)))
- (if (string-match "-[0-9]+-" pat)
- (string-to-number
- (substring
- pat (1+ (match-beginning 0)) (1- (match-end 0))))
- 0)))
- )))
- )
- (running-emacs-18
- (require 'emu-18)
- (defun tl:make-overlay (beg end &optional buffer type))
- (defun tl:overlay-put (overlay prop value))
- ))
-
-
-;;; @@ truncate-string
-;;;
+(defalias 'string-to-int-list 'string-to-char-list)
(or (fboundp 'truncate-string)
;;; Imported from Mule-2.3
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-x20.el,v 7.1 1996/05/14 02:41:20 morioka Exp $
+;;; $Id: emu-x20.el,v 7.2 1996/05/15 14:02:54 morioka Exp morioka $
;;; Keywords: emulation, compatibility, Mule, XEmacs
;;;
;;; This file is part of tl (Tiny Library).
;;;
;;; Code:
+(require 'emu-xemacs)
+
(defvar xemacs-beta-version
(if (string-match "(beta\\([0-9]+\\))" emacs-version)
(string-to-number
(defalias 'string-width 'length)
+(defun string-to-int-list (str)
+ (mapcar #'char-int str)
+ )
+
(defalias 'sref 'aref)
(defun truncate-string (str width &optional start-column)
)
-;;; @ etc
-;;;
-
-(require 'emu-xemacs)
-
-
;;; @ end
;;;
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
-;;; $Id: emu-xemacs.el,v 7.4 1996/04/24 11:58:31 morioka Exp $
+;;; $Id: emu-xemacs.el,v 7.5 1996/05/15 14:05:34 morioka Exp $
;;; Keywords: emulation, compatibility, XEmacs
;;;
;;; This file is part of tl (Tiny Library).
"Convert list of character CHAR-LIST to string. [emu-xemacs.el]"
`(mapconcat #'char-to-string ,char-list ""))
-(if running-xemacs-20
- (defun string-to-int-list (str)
- (mapcar #'char-int str)
- )
- (fset 'string-to-int-list 'string-to-char-list)
- )
-
;;; @ end
;;;
projects / elisp / apel.git / commitdiff