tm 7.89.

[elisp/apel.git] / emu-nemacs.el

diff --git a/emu-nemacs.el b/emu-nemacs.el
index bf9815b..5dfc04f 100644 (file)
--- a/emu-nemacs.el
+++ b/emu-nemacs.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-nemacs.el,v 7.48 1996/09/23 20:31:12 morioka Exp $
+;; Version: $Id: emu-nemacs.el,v 7.49 1996/10/01 13:26:34 morioka Exp $
 ;; Keywords: emulation, compatibility, NEmacs, mule
 
 ;; This file is part of tl (Tiny Library).
@@ -66,6 +66,8 @@
       (list lc-jp)
     ))
 
+(defalias 'find-non-ascii-charset-string 'find-charset-string)
+
 (defun find-charset-region (start end)
   "Return a list of charsets in the region between START and END.
 \[emu-nemacs.el; Mule emulating function]"
@@ -78,6 +80,8 @@
       (list lc-jp)
     ))
 
+(defalias 'find-non-ascii-charset-region 'find-charset-region)
+
 (defun check-ASCII-string (str)
   (let ((i 0)
        len)