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

[elisp/apel.git] / emu-latin1.el

diff --git a/emu-latin1.el b/emu-latin1.el
index 69f03e2..2d1c182 100644 (file)
--- a/emu-latin1.el
+++ b/emu-latin1.el
@@ -27,11 +27,11 @@
 ;;; @ version and variant specific features
 ;;;
 
-(cond (running-xemacs
-       (require 'emu-xemacs))
-      (running-emacs-19
-       (require 'emu-19)
-       ))
+;; (cond (running-xemacs
+;;        (require 'emu-xemacs))
+;;       (running-emacs-19
+;;        (require 'emu-e19)
+;;        ))
 
 
 ;;; @ character set
@@ -223,6 +223,8 @@ find-file-hooks, etc.
   "Decode the STRING as MIME CHARSET."
   string)
 
+(defalias 'write-region-as-mime-charset 'write-region)
+
 
 ;;; @ character
 ;;;
@@ -245,7 +247,7 @@ find-file-hooks, etc.
 
 (defmacro char-next-index (char index)
   "Return index of character succeeding CHAR whose index is INDEX."
-  (` (1+ index)))
+  (` (1+ (, index))))
 
 
 ;;; @ string
@@ -270,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.