From ac289899cab1b29047b4673af069f155d4d52398 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Fri, 15 May 1998 10:25:16 +0000
Subject: [PATCH] (looking-at-as-unibyte): New alias.

---
 emu-e20_3.el  |    2 ++
 emu-latin1.el |    2 ++
 emu-mule.el   |    2 ++
 emu-nemacs.el |    2 ++
 emu-x20.el    |    6 ++----
 5 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/emu-e20_3.el b/emu-e20_3.el
index 6362a0f..15aec7e 100644
--- a/emu-e20_3.el
+++ b/emu-e20_3.el
@@ -51,6 +51,8 @@
 
 (defalias 'string-to-int-list 'string-to-char-list)
 
+(defalias 'looking-at-as-unibyte 'looking-at)
+
 
 ;;; @ end
 ;;;
diff --git a/emu-latin1.el b/emu-latin1.el
index 2dbd0ba..2d1c182 100644
--- a/emu-latin1.el
+++ b/emu-latin1.el
@@ -272,6 +272,8 @@ Optional non-nil arg START-COLUMN specifies the starting column.
   (substring str start-column width)
   )
 
+(defalias 'looking-at-as-unibyte 'looking-at)
+
 ;;; @@ obsoleted aliases
 ;;;
 ;;; You should not use them.
diff --git a/emu-mule.el b/emu-mule.el
index b089a14..2f0b476 100644
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -378,6 +378,8 @@ Optional non-nil arg START-COLUMN specifies the starting column.
 ;;;
   )
 
+(defalias 'looking-at-as-unibyte 'looking-at)
+
 
 ;;; @ regulation
 ;;;
diff --git a/emu-nemacs.el b/emu-nemacs.el
index a130f11..7ed79b2 100644
--- a/emu-nemacs.el
+++ b/emu-nemacs.el
@@ -412,6 +412,8 @@ Optional non-nil arg START-COLUMN specifies the starting column.
 	    (setq to to-prev)))
       (substring str from to))))
 
+(defalias 'looking-at-as-unibyte 'looking-at)
+
 ;;; @@ obsoleted aliases
 ;;;
 ;;; You should not use them.
diff --git a/emu-x20.el b/emu-x20.el
index e942de7..5628997 100644
--- a/emu-x20.el
+++ b/emu-x20.el
@@ -28,10 +28,6 @@
 
 ;;; Code:
 
-;; (require 'emu-xemacs)
-;; (require 'emu-20)
-
-
 (and (coding-system-property 'iso-2022-jp 'input-charset-conversion)
      (copy-coding-system 'iso-2022-7bit 'iso-2022-jp))
 
@@ -241,6 +237,8 @@ TABLE defaults to the current buffer's category table."
   (mapcar #'char-int str)
   )
 
+(defalias 'looking-at-as-unibyte 'looking-at)
+
 
 ;;; @ end
 ;;;
-- 
1.7.10.4