From: morioka <morioka>
Date: Wed, 11 Mar 1998 12:47:55 +0000 (+0000)
Subject: tm 7.104.
X-Git-Tag: tm-7_104~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bd5d0aa793659b5940dd678d7ca45f28fd85cafe;p=elisp%2Fapel.git

tm 7.104.
---

diff --git a/emu-x20.el b/emu-x20.el
index a11259c..dc4be1b 100644
--- a/emu-x20.el
+++ b/emu-x20.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1994,1995,1996,1997 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-x20.el,v 7.46 1997/01/29 15:02:16 morioka Exp $
+;; Version: $Id: emu-x20.el,v 7.48 1997/02/12 17:06:02 morioka Exp $
 ;; Keywords: emulation, compatibility, Mule, XEmacs
 
 ;; This file is part of XEmacs.
@@ -28,12 +28,6 @@
 (require 'cyrillic)
 (require 'emu-xemacs)
 
-(defvar xemacs-beta-version
-  (if (string-match "(beta\\([0-9]+\\))" emacs-version)
-      (string-to-number
-       (substring emacs-version (match-beginning 1)(match-end 1))
-       )))
-
 
 ;;; @ coding-system
 ;;;
@@ -49,6 +43,7 @@
 
 (defmacro as-binary-process (&rest body)
   `(let (selective-display	; Disable ^M to nl translation.
+	 (file-coding-system 'no-conversion)
 	 process-input-coding-system
 	 process-output-coding-system)
      ,@body))
@@ -163,25 +158,10 @@
 ;;; @ character
 ;;;
 
-;; (defun char-bytes (chr) 1)
-
-;; (defun char-length (character)
-;;   "Return number of elements a CHARACTER occupies in a string or buffer.
-;; \[emu-x20.el]"
-;;   1)
-
-;; (defun char-columns (character)
-;;   "Return number of columns a CHARACTER occupies when displayed.
-;; \[emu-x20.el]"
-;;   (charset-columns (char-charset character))
-;;   )
-
 ;;; @@ Mule emulating aliases
 ;;;
 ;;; You should not use them.
 
-;;(defalias 'char-width 'char-columns)
-
 (defalias 'char-leading-char 'char-charset)
 
 (defun char-category (character)
@@ -199,35 +179,10 @@ TABLE defaults to the current buffer's category table.
 ;;; @ string
 ;;;
 
-;; (defun string-columns (string)
-;;   "Return number of columns STRING occupies when displayed.
-;; \[emu-x20.el]"
-;;   (let ((col 0)
-;;         (len (length string))
-;;         (i 0))
-;;     (while (< i len)
-;;       (setq col (+ col (char-columns (aref string i))))
-;;       (setq i (1+ i))
-;;       )
-;;     col))
-
-;;(defalias 'string-width 'string-columns)
-
 (defun string-to-int-list (str)
   (mapcar #'char-int str)
   )
 
-;;(defalias 'sref 'aref)
-
-;; (defun truncate-string (str width &optional start-column)
-;;   "Truncate STR to fit in WIDTH columns.
-;; Optional non-nil arg START-COLUMN specifies the starting column.
-;; \[emu-x20.el; Mule 2.3 emulating function]"
-;;   (or start-column
-;;       (setq start-column 0))
-;;   (substring str start-column width)
-;;   )
-
 
 ;;; @ end
 ;;;