From bd5d0aa793659b5940dd678d7ca45f28fd85cafe Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 11 Mar 1998 12:47:55 +0000 Subject: [PATCH] tm 7.104. --- emu-x20.el | 49 ++----------------------------------------------- 1 file changed, 2 insertions(+), 47 deletions(-) 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 -;; 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 ;;; -- 1.7.10.4