Permalink
Browse files

tm 7.65.

  • Loading branch information...
1 parent 6e090a9 commit dfa667752f36263cc37fe93f3f68bc25d57ffb8b morioka committed Mar 9, 1998
Showing with 407 additions and 71 deletions.
  1. +77 −0 ChangeLog
  2. +42 −0 emu-18.el
  3. +31 −0 emu-19.el
  4. +55 −31 emu-e19.el
  5. +50 −3 emu-mule.el
  6. +39 −20 emu-nemacs.el
  7. +74 −17 emu-x20.el
  8. +39 −0 emu-xemacs.el
View
@@ -1,3 +1,80 @@
+Mon May 27 14:04:12 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.27.1 was released.
+
+ * emu-mule.el (charset-*): New constants.
+
+ * emu-x20.el (charset-*): New constants.
+ (charset-description): New alias.
+
+ * emu-e19.el (char-charset):
+ Use constant `charset-ascii' and `charset-latin-1'.
+
+Mon May 27 12:17:42 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-nemacs.el (char-charset): Use constant `charset-ascii' and
+ `charset-jisx0208'.
+
+ * emu-nemacs.el (charset-ascii): New constant.
+ (charset-jisx0208): New constant.
+
+Mon May 27 12:06:05 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-mule.el (charset-description): New alias.
+ (charset-registry): New alias.
+ (charset-columns): New alias.
+ (charset-direction): New alias.
+
+Mon May 27 11:28:24 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-mule.el (string-columns): New alias.
+
+ * emu-nemacs.el, emu-e19.el, emu-x20.el (string-columns): New
+ alias; You should use it instead of `string-width'.
+
+Mon May 27 10:07:19 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-nemacs.el (truncate-string): Use function `char-columns'
+ instead of `char-width'.
+
+Mon May 27 10:01:14 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-mule.el (char-columns): New alias.
+
+ * emu-nemacs.el, emu-e19.el, emu-x20.el (char-columns): New
+ function; You should use it instead of `char-width'.
+
+Sat May 25 20:23:36 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-xemacs.el (invisible-p): New function.
+ (next-visible-point): New function.
+
+Sat May 25 20:21:22 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-19.el (invisible-p): New function.
+ (next-visible-point): New function.
+
+Sat May 25 20:14:52 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-18.el (invisible-p): New function.
+ (next-visible-point): New function.
+
+Sat May 25 19:51:23 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-18.el (invisible-region): New function.
+ (visible-region): New function.
+
+Sat May 25 19:28:13 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-xemacs.el (invisible-region): New function.
+ (visible-region): New function.
+
+Sat May 25 19:22:50 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-19.el (invisible-region): New function.
+ (visible-region): New function.
+
+
Thu May 23 01:31:02 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.27 was released.
View
@@ -221,6 +221,48 @@ With optional non-nil ALL, force redisplay of all mode-lines.
(defun tl:overlay-buffer (overlay))
+;;; @@ visible/invisible
+;;;
+
+(defun invisible-region (start end)
+ (let ((buffer-read-only nil) ;Okay even if write protected.
+ (modp (buffer-modified-p)))
+ (if (save-excursion
+ (goto-char (1- end))
+ (eq (following-char) ?\n)
+ )
+ (setq end (1- end))
+ )
+ (unwind-protect
+ (subst-char-in-region start end ?\n ?\^M t)
+ (set-buffer-modified-p modp)
+ )))
+
+(defun visible-region (start end)
+ (let ((buffer-read-only nil) ;Okay even if write protected.
+ (modp (buffer-modified-p)))
+ (unwind-protect
+ (subst-char-in-region start end ?\^M ?\n t)
+ (set-buffer-modified-p modp)
+ )))
+
+(defun invisible-p (pos)
+ (save-excursion
+ (goto-char pos)
+ (eq (following-char) ?\^M)
+ ))
+
+(defun next-visible-point (pos)
+ (save-excursion
+ (goto-char pos)
+ (end-of-line)
+ (if (eq (following-char) ?\n)
+ (forward-char)
+ )
+ (point)
+ ))
+
+
;;; @ mouse
;;;
View
@@ -37,6 +37,37 @@
(defalias 'tl:overlay-buffer 'overlay-buffer)
+;;; @@ visible/invisible
+;;;
+
+(defun invisible-region (start end)
+ (if (save-excursion
+ (goto-char (1- end))
+ (eq (following-char) ?\n)
+ )
+ (setq end (1- end))
+ )
+ (put-text-property start end 'invisible t)
+ )
+
+(defun visible-region (start end)
+ (put-text-property start end 'invisible nil)
+ )
+
+(defun invisible-p (pos)
+ (get-text-property pos 'invisible)
+ )
+
+(defun next-visible-point (pos)
+ (save-excursion
+ (goto-char (next-single-property-change pos 'invisible))
+ (if (eq (following-char) ?\n)
+ (forward-char)
+ )
+ (point)
+ ))
+
+
;;; @ mouse
;;;
View
@@ -40,36 +40,14 @@
;;; @ character set
;;;
-(defconst lc-ascii 0)
-(defconst lc-ltn1 129)
-
-(defun char-charset (chr)
- "Return the character set of char CHR.
-\[emu-e19.el; XEmacs 20 emulating function]"
- (if (< chr 128)
- lc-ascii
- lc-ltn1))
-
-(defalias 'char-leading-char 'char-charset)
+(defconst charset-ascii 0 "Character set of ASCII")
+(defconst charset-latin-1 129 "Character set of ISO-8859-1")
-(defun find-charset-string (str)
- "Return a list of leading-chars in the string.
-\[emu-e19.el; Mule emulating function]"
- (if (string-match "[\200-\377]" str)
- (list lc-ltn1)
- ))
+;;; @@ for Mule emulation
+;;;
-(defun find-charset-region (start end)
- "Return a list of leading-chars in the region between START and END.
-\[emu-e19.el; Mule emulating function]"
- (if (save-excursion
- (save-restriction
- (narrow-to-region start end)
- (goto-char start)
- (re-search-forward "[\200-\377]" nil t)
- ))
- (list lc-ltn1)
- ))
+(defconst lc-ascii 0)
+(defconst lc-ltn1 129)
;;; @ coding-system
@@ -118,13 +96,54 @@ between START and END. [emu-e19.el; Mule emulating function]"
)
-;;; @ character and string
+;;; @ character
;;;
(defun char-bytes (chr) 1)
-(defun char-width (chr) 1)
-(defalias 'string-width 'length)
+(defun char-columns (character)
+ "Return number of columns a CHARACTER occupies when displayed.
+\[emu-nemacs.el]"
+ 1)
+
+(defun char-charset (chr)
+ "Return the character set of char CHR.
+\[emu-e19.el; XEmacs 20 emulating function]"
+ (if (< chr 128)
+ charset-ascii
+ charset-latin-1))
+
+(defun find-charset-string (str)
+ "Return a list of leading-chars in the string.
+\[emu-e19.el; Mule emulating function]"
+ (if (string-match "[\200-\377]" str)
+ (list lc-ltn1)
+ ))
+
+(defun find-charset-region (start end)
+ "Return a list of leading-chars in the region between START and END.
+\[emu-e19.el; Mule emulating function]"
+ (if (save-excursion
+ (save-restriction
+ (narrow-to-region start end)
+ (goto-char start)
+ (re-search-forward "[\200-\377]" nil t)
+ ))
+ (list lc-ltn1)
+ ))
+
+;;; @@ for Mule emulation
+;;;
+
+(defalias 'char-width 'char-columns)
+
+(defalias 'char-leading-char 'char-charset)
+
+
+;;; @ string
+;;;
+
+(defalias 'string-columns 'length)
(defun string-to-char-list (str)
(mapcar (function identity) str)
@@ -143,6 +162,11 @@ Optional non-nil arg START-COLUMN specifies the starting column.
(substring str start-column width)
)
+;;; @@ for Mule emulation
+;;;
+
+(defalias 'string-width 'length)
+
;;; @ end
;;;
View
@@ -2,7 +2,7 @@
;;; emu-mule.el --- Mule 2.* emulation module for Mule
;;;
;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
+;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
@@ -60,7 +60,44 @@
;;; @ character set
;;;
-(defalias 'char-charset 'char-leading-char)
+;; 94 character set
+(defconst charset-ascii lc-ascii "ASCII")
+(defconst charset-jisx0201-kana lc-kana "JIS X0201 Katakana")
+(defconst charset-jisx0201-latin lc-roman "JIS X0201 Latin")
+
+;; 96 character set
+(defconst charset-latin-1 lc-ltn1 "ISO-8859-1 (Latin-1)")
+(defconst charset-latin-2 lc-ltn2 "ISO-8859-2 (Latin-2)")
+(defconst charset-latin-3 lc-ltn3 "ISO-8859-3 (Latin-3)")
+(defconst charset-latin-4 lc-ltn4 "ISO-8859-4 (Latin-4)")
+(defconst charset-cyrillic lc-crl "ISO-8859-5 (Cyrillic)")
+(defconst charset-arabic lc-arb "ISO-8859-6 (Arabic)")
+(defconst charset-greek lc-grk "ISO-8859-7 (Greek)")
+(defconst charset-hebrew lc-hbw "ISO-8859-8 (Hebrew)")
+(defconst charset-latin-5 lc-ltn5 "ISO-8859-9 (Latin-5)")
+
+;; 94x94 character set
+(defconst charset-jisx0208-1978 lc-jpold "JIS X0208-1978")
+(defconst charset-gb2312 lc-cn "GB 2312-1980")
+(defconst charset-jisx0208 lc-jp "JIS X0208-1983")
+(defconst charset-ksc5601 lc-kr "KS C5601-1987")
+(defconst charset-jisx0212 lc-jp2 "JIS X0212-1990")
+(defconst charset-cns11643-1 lc-cns1 "CNS 11643-1986 plane 1")
+(defconst charset-cns11643-2 lc-cns2 "CNS 11643-1986 plane 2")
+(defconst charset-cns11643-3 lc-cns3 "CNS 11643-1986 plane 3")
+(defconst charset-cns11643-4 lc-cns4 "CNS 11643-1986 plane 4")
+(defconst charset-cns11643-5 lc-cns5 "CNS 11643-1986 plane 5")
+(defconst charset-cns11643-6 lc-cns6 "CNS 11643-1986 plane 6")
+(defconst charset-cns11643-7 lc-cns7 "CNS 11643-1986 plane 7")
+
+;; Big 5
+(defconst charset-big5-1 lc-big5-1 "Big5 Level 1")
+(defconst charset-big5-2 lc-big5-2 "Big5 Level 2")
+
+(defalias 'charset-description 'char-description)
+(defalias 'charset-registry 'char-registry)
+(defalias 'charset-columns 'char-width)
+(defalias 'charset-direction 'char-direction)
;;; @ coding system
@@ -91,9 +128,19 @@ encoded in CODING-SYSTEM. [emu-mule.el]"
)
-;;; @ character and string
+;;; @ character
+;;;
+
+(defalias 'char-charset 'char-leading-char)
+
+(defalias 'char-columns 'char-width)
+
+
+;;; @ string
;;;
+(defalias 'string-columns 'string-width)
+
(defalias 'string-to-int-list 'string-to-char-list)
(or (fboundp 'truncate-string)
Oops, something went wrong.

0 comments on commit dfa6677

Please sign in to comment.