Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

tm 7.66.

  • Loading branch information...
commit 2012f31383ee9060a1c19d450b110cfbd003dfe7 1 parent dfa6677
morioka authored
Showing with 135 additions and 69 deletions.
  1. +15 −0 ChangeLog
  2. +2 −2 Makefile
  3. +49 −23 emu-e19.el
  4. +56 −31 emu-nemacs.el
  5. +13 −13 emu-x20.el
View
15 ChangeLog
@@ -1,3 +1,18 @@
+Tue May 28 06:48:04 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.29 was released.
+
+ * mu-comment.el (comment-sexp): Unused local variable `p' was
+ abolished.
+
+Tue May 28 06:30:51 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-e19.el, emu-nemacs.el (charset-description): New function.
+ (charset-registry): New function.
+ (charset-columns): New function.
+ (charset-direction): New function.
+
+
Mon May 27 14:04:12 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.27.1 was released.
View
4 Makefile
@@ -19,9 +19,9 @@ TLDIR19 = $(HOME)/lib/emacs19/lisp
FILES = tl/README.en tl/Makefile tl/mk-tl tl/tl-els \
tl/*.el tl/*.bdf \
- tl/doc/*.texi tl/ChangeLog
+ tl/doc/*.ol tl/doc/*.tex tl/doc/*.texi tl/ChangeLog
-TARFILE = tl-7.27.tar
+TARFILE = tl-7.29.tar
elc:
View
72 emu-e19.el
@@ -43,6 +43,48 @@
(defconst charset-ascii 0 "Character set of ASCII")
(defconst charset-latin-1 129 "Character set of ISO-8859-1")
+(defun charset-description (charset)
+ "Return description of CHARSET. [emu-e19.el]"
+ (if (< charset 128)
+ (documentation-property 'charset-ascii 'variable-documentation)
+ (documentation-property 'charset-latin-1 'variable-documentation)
+ ))
+
+(defun charset-registry (charset)
+ "Return registry name of CHARSET. [emu-e19.el]"
+ (if (< charset 128)
+ "ASCII"
+ "ISO8859-1"))
+
+(defun charset-columns (charset)
+ "Return number of columns a CHARSET occupies when displayed.
+\[emu-e19.el]"
+ 1)
+
+(defun charset-direction (charset)
+ "Return the direction of a character of CHARSET by
+ 0 (left-to-right) or 1 (right-to-left). [emu-e19.el]"
+ 0)
+
+(defun find-charset-string (str)
+ "Return a list of charsets 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 charsets 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
;;;
@@ -99,13 +141,6 @@ between START and END. [emu-e19.el; Mule emulating function]"
;;; @ character
;;;
-(defun char-bytes (chr) 1)
-
-(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]"
@@ -113,24 +148,15 @@ between START and END. [emu-e19.el; Mule emulating function]"
charset-ascii
charset-latin-1))
-(defun find-charset-string (str)
- "Return a list of leading-chars in the string.
+(defun char-bytes (char)
+ "Return number of bytes a character in CHAR occupies in a buffer.
\[emu-e19.el; Mule emulating function]"
- (if (string-match "[\200-\377]" str)
- (list lc-ltn1)
- ))
+ 1)
-(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)
- ))
+(defun char-columns (character)
+ "Return number of columns a CHARACTER occupies when displayed.
+\[emu-nemacs.el]"
+ 1)
;;; @@ for Mule emulation
;;;
View
87 emu-nemacs.el
@@ -37,6 +37,62 @@
(defconst charset-ascii 0 "Character set of ASCII")
(defconst charset-jisx0208 146 "Character set of JIS X0208-1983")
+(defun charset-description (charset)
+ "Return description of CHARSET. [emu-nemacs.el]"
+ (if (< charset 128)
+ (documentation-property 'charset-ascii 'variable-documentation)
+ (documentation-property 'charset-jisx0208 'variable-documentation)
+ ))
+
+(defun charset-registry (charset)
+ "Return registry name of CHARSET. [emu-nemacs.el]"
+ (if (< charset 128)
+ "ASCII"
+ "JISX0208.1983"))
+
+(defun charset-columns (charset)
+ "Return number of columns a CHARSET occupies when displayed.
+\[emu-nemacs.el]"
+ (if (< charset 128)
+ 1
+ 2))
+
+(defun charset-direction (charset)
+ "Return the direction of a character of CHARSET by
+ 0 (left-to-right) or 1 (right-to-left). [emu-nemacs.el]"
+ 0)
+
+(defun find-charset-string (str)
+ "Return a list of charsets in the string.
+\[emu-nemacs.el; Mule emulating function]"
+ (if (string-match "[\200-\377]" str)
+ (list lc-jp)
+ ))
+
+(defun find-charset-region (start end)
+ "Return a list of charsets in the region between START and END.
+\[emu-nemacs.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-jp)
+ ))
+
+(defun check-ASCII-string (str)
+ (let ((i 0)
+ len)
+ (setq len (length str))
+ (catch 'label
+ (while (< i len)
+ (if (>= (elt str i) 128)
+ (throw 'label nil))
+ (setq i (+ i 1))
+ )
+ str)))
+
;;; @@ for Mule emulation
;;;
@@ -178,37 +234,6 @@ else returns nil. [emu-nemacs.el; Mule emulating function]"
(fset 'string-to-int-list (symbol-function 'string-to-char-list))
-(defun find-charset-string (str)
- "Return a list of leading-chars in the string.
-\[emu-nemacs.el; Mule emulating function]"
- (if (string-match "[\200-\377]" str)
- (list lc-jp)
- ))
-
-(defun find-charset-region (start end)
- "Return a list of leading-chars in the region between START and END.
-\[emu-nemacs.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-jp)
- ))
-
-(defun check-ASCII-string (str)
- (let ((i 0)
- len)
- (setq len (length str))
- (catch 'label
- (while (< i len)
- (if (>= (elt str i) 128)
- (throw 'label nil))
- (setq i (+ i 1))
- )
- str)))
-
;;; Imported from Mule-2.3
(defun truncate-string (str width &optional start-column)
"Truncate STR to fit in WIDTH columns.
View
26 emu-x20.el
@@ -66,6 +66,19 @@
(defalias 'charset-description 'charset-doc-string)
+(defun find-charset-string (string)
+ "Return a list of charsets in the STRING except ascii.
+\[emu-x20.el; Mule emulating function]"
+ (delq 'ascii (charsets-in-string string))
+ )
+
+(defun find-charset-region (start end)
+ "Return a list of charsets except ascii
+in the region between START and END.
+\[emu-x20.el; Mule emulating function]"
+ (delq 'ascii (charsets-in-region start end))
+ )
+
;;; @@ for Mule emulation
;;;
@@ -198,19 +211,6 @@ Optional non-nil arg START-COLUMN specifies the starting column.
(substring str start-column width)
)
-(defun find-charset-string (string)
- "Return a list of charsets in the STRING except ascii.
-\[emu-x20.el; Mule emulating function]"
- (delq 'ascii (charsets-in-string string))
- )
-
-(defun find-charset-region (start end)
- "Return a list of charsets except ascii
-in the region between START and END.
-\[emu-x20.el; Mule emulating function]"
- (delq 'ascii (charsets-in-region start end))
- )
-
;;; @ end
;;;
Please sign in to comment.
Something went wrong with that request. Please try again.