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

diff --git a/emu-e20_2.el b/emu-e20_2.el
index ca33328..3a64188 100644 (file)
--- a/emu-e20_2.el
+++ b/emu-e20_2.el
@@ -68,6 +68,12 @@ but the contents viewed as characters do change."
 
 (defalias 'string-to-int-list 'string-to-char-list)
 
 
 (defalias 'string-to-int-list 'string-to-char-list)
 

+(defun looking-at-as-unibyte (regexp)
+  "Like `looking-at', but string is regarded as unibyte sequence."
+  (let (enable-multibyte-characters)
+    (looking-at regexp)
+    ))
+

 ;;; @@ obsoleted aliases
 ;;;
 ;;; You should not use them.
 ;;; @@ obsoleted aliases
 ;;;
 ;;; You should not use them.