(looking-at-as-unibyte): New alias.

diff --git a/emu-e20_3.el b/emu-e20_3.el
index 6362a0f..15aec7e 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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
 ;;;