From: morioka <morioka>
Date: Fri, 15 May 1998 10:22:32 +0000 (+0000)
Subject: (looking-at-as-unibyte): New function.
X-Git-Tag: apel-8_12~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=30d46e2f041319d890eb6b44a82e250e5efe0c63;p=elisp%2Fapel.git

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

diff --git a/emu-e20_2.el b/emu-e20_2.el
index ca33328..3a64188 100644
--- 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)
 
+(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.