Skip to content
Browse files

tm 7.61.

  • Loading branch information...
1 parent 509902b commit 954b5375b6d7bfb2f0f9a4e9d30e4e51a0dd0f45 morioka committed
Showing with 93 additions and 56 deletions.
  1. +42 −0 ChangeLog
  2. +1 −1 Makefile
  3. +0 −2 emu-19.el
  4. +12 −10 emu-e19.el
  5. +32 −30 emu-mule.el
  6. +6 −6 emu-x20.el
  7. +0 −7 emu-xemacs.el
View
42 ChangeLog
@@ -1,3 +1,45 @@
+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.
+
+
Tue May 14 02:41:20 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.22.5 was released.
View
2 Makefile
@@ -21,7 +21,7 @@ FILES = tl/README.en tl/Makefile tl/mk-tl tl/tl-els \
tl/*.el tl/*.bdf \
tl/doc/*.texi tl/ChangeLog
-TARFILE = tl-7.22.4.tar
+TARFILE = tl-7.24.tar
elc:
View
2 emu-19.el
@@ -55,8 +55,6 @@
"")
))
-(fset 'string-to-int-list 'string-to-char-list)
-
;;; @ end
;;;
View
22 emu-e19.el
@@ -27,6 +27,16 @@
;;;
;;; Code:
+;;; @ version and variant specific features
+;;;
+
+(cond (running-xemacs
+ (require 'emu-xemacs))
+ (running-emacs-19
+ (require 'emu-19)
+ ))
+
+
;;; @ character set
;;;
@@ -120,6 +130,8 @@ between START and END. [emu-e19.el; Mule emulating function]"
(mapcar (function identity) str)
)
+(defalias 'string-to-int-list 'string-to-char-list)
+
(defalias 'sref 'aref)
(defun truncate-string (str width &optional start-column)
@@ -132,16 +144,6 @@ Optional non-nil arg START-COLUMN specifies the starting column.
)
-;;; @ etc
-;;;
-
-(cond (running-xemacs
- (require 'emu-xemacs))
- (running-emacs-19
- (require 'emu-19)
- ))
-
-
;;; @ end
;;;
View
62 emu-mule.el
@@ -27,6 +27,36 @@
;;;
;;; 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
;;;
@@ -61,38 +91,10 @@ encoded in CODING-SYSTEM. [emu-mule.el]"
)
-;;; @ 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
View
12 emu-x20.el
@@ -27,6 +27,8 @@
;;;
;;; Code:
+(require 'emu-xemacs)
+
(defvar xemacs-beta-version
(if (string-match "(beta\\([0-9]+\\))" emacs-version)
(string-to-number
@@ -137,6 +139,10 @@ in the region between START and END.
(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)
@@ -149,12 +155,6 @@ Optional non-nil arg START-COLUMN specifies the starting column.
)
-;;; @ etc
-;;;
-
-(require 'emu-xemacs)
-
-
;;; @ end
;;;
View
7 emu-xemacs.el
@@ -96,13 +96,6 @@
"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
;;;

0 comments on commit 954b537

Please sign in to comment.
Something went wrong with that request. Please try again.