From: morioka Date: Fri, 15 May 1998 10:25:16 +0000 (+0000) Subject: (looking-at-as-unibyte): New alias. X-Git-Tag: apel-8_12~5 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ac289899cab1b29047b4673af069f155d4d52398;p=elisp%2Fapel.git (looking-at-as-unibyte): New alias. --- 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 ;;;