X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=emu-nemacs.el;h=5dfc04f4a598ad1263dc0bea21e5accce3c3cd9c;hb=db3a09e29db5d7af8a0a4a9190739056bd4ccade;hp=bf9815bd2499088ff42c82fee1e29106394b7de7;hpb=7340a9611c42d6e6ef92ddf8095da3f647686915;p=elisp%2Fapel.git

diff --git a/emu-nemacs.el b/emu-nemacs.el
index bf9815b..5dfc04f 100644
--- 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)