Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

tm 7.52.2.

  • Loading branch information...
commit 7a714096207262111ff28a943b03afbeaf207ca8 1 parent 74bd4c4
morioka authored
View
46 ChangeLog
@@ -1,3 +1,49 @@
+Thu Apr 25 12:08:33 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.19.3 was released.
+
+Wed Apr 24 15:27:17 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-orig.el (sref): New alias.
+
+ * emu-mule.el (char-charset): New alias.
+
+Wed Apr 24 13:46:56 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-nemacs.el, emu-orig.el: Function `char-leading-char' was
+ renamed to `char-charset'; `char-leading-char' became alias of
+ function `char-charset'.
+
+ * tl-str.el (replace-char-by-char): abolished.
+
+ * emu-nemacs.el (sref): fixed.
+
+ * emu-nemacs.el (string-to-int-list): moved from emu-18.el.
+
+ * emu-18.el (string-to-int-list): moved to emu-nemacs.el.
+
+ * emu-xemacs.el, emu-19.el (string-to-int-list): fixed to define.
+
+ * emu-18.el (string-to-int-list): fixed.
+
+Wed Apr 24 00:57:07 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mu-replace.el: defvar for global variables.
+
+ * tl-misc.el (get-latest-path): New implementation.
+
+Wed Apr 24 00:16:45 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl-str.el (filename-special-char-range): use function `char-int'
+ and `string-to-int-list'.
+
+ * emu-xemacs.el, emu-19.el, emu-18.el (string-to-int-list):
+ New function.
+
+ * emu.el (char-int): New function.
+ (int-char): New function.
+
+
Sat Apr 20 13:10:42 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.19.2 was released.
View
2  emu-19.el
@@ -55,6 +55,8 @@
"")
))
+(fset 'string-to-int-list 'string-to-char-list)
+
;;; @ end
;;;
View
2  emu-mule.el
@@ -45,6 +45,8 @@ whose return value applied function PRED is not nil.
;;; @ leading-character
;;;
+(defalias 'char-charset 'char-leading-char)
+
(defun get-lc (chr)
"Return leading character of CHAR or LEADING-CHARACTER."
(if (< chr 128)
View
28 emu-nemacs.el
@@ -37,14 +37,15 @@
(defconst lc-ascii 0)
(defconst lc-jp 146)
-(defun char-leading-char (chr)
- "Return leading character of CHAR.
-\[emu-nemacs.el; Mule emulating function]"
+(defun char-charset (chr)
+ "Return the character set of char CHR.
+\[emu-nemacs.el; XEmacs 20 emulating function]"
(if (< chr 128)
lc-ascii
lc-jp))
-(defalias 'get-lc 'char-leading-char)
+(defalias 'char-leading-char 'char-charset)
+(defalias 'get-lc 'char-charset)
;;; @ coding-system
@@ -74,7 +75,7 @@ else returns nil. [emu-nemacs.el; Mule emulating function]"
(defun code-detect-region (start end)
"Detect coding-system of the text in the region between START and END.
-\[emu-orig.el; Mule emulating function]"
+\[emu-nemacs.el; Mule emulating function]"
(if (save-excursion
(save-restriction
(narrow-to-region start end)
@@ -94,19 +95,28 @@ else returns nil. [emu-nemacs.el; Mule emulating function]"
(defun char-bytes (chr)
"Return number of bytes CHAR will occupy in a buffer.
-\[Mule compatible function in tm-nemacs]"
+\[emu-nemacs.el; Mule emulating function]"
(if (< chr 128) 1 2))
(defun char-width (chr)
"Return number of columns CHAR will occupy when displayed.
-\[Mule compatible function in tm-nemacs]"
+\[emu-nemacs.el; Mule emulating function]"
(if (< chr 128) 1 2))
(defun string-width (str)
"Return number of columns STRING will occupy.
-\[Mule compatible function in tm-nemacs]"
+\[emu-nemacs.el; Mule emulating function]"
(length str))
+(defun sref (str idx)
+ "Return the character in STR at index IDX.
+\[emu-nemacs.el; Mule emulating function]"
+ (let ((chr (aref str idx)))
+ (if (< chr 128)
+ chr
+ (logior (lsh (aref str (1+ idx)) 8) chr)
+ )))
+
(defun string-to-char-list (str)
(let ((i 0)(len (length str)) dest chr)
(while (< i len)
@@ -121,6 +131,8 @@ else returns nil. [emu-nemacs.el; Mule emulating function]"
(reverse dest)
))
+(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]"
View
7 emu-xemacs.el
@@ -96,6 +96,13 @@
"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
;;;
View
13 emu.el
@@ -33,6 +33,8 @@
(defvar running-emacs-18 (<= emacs-major-version 18))
(defvar running-xemacs (string-match "XEmacs" emacs-version))
+(defvar running-xemacs-20 (and running-xemacs
+ (>= emacs-major-version 20)))
(defvar running-emacs-19 (and (not running-xemacs)
(= emacs-major-version 19)))
(defvar running-emacs-19_29-or-later
@@ -83,6 +85,17 @@
)
+;;; @ for XEmacs 20
+;;;
+
+(or (fboundp 'char-int)
+ (fset 'char-int (symbol-function 'identity))
+ )
+(or (fboundp 'int-char)
+ (fset 'int-char (symbol-function 'identity))
+ )
+
+
;;; @ end
;;;
Please sign in to comment.
Something went wrong with that request. Please try again.