(apel-modules): Delete 'std11 and 'std11-parse.

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

diff --git a/emu-e19.el b/emu-e19.el
index 4e5e10e..ce75ddf 100644 (file)
--- a/emu-e19.el
+++ b/emu-e19.el
@@ -248,28 +248,17 @@ find-file-hooks, etc.
   "Return number of columns a CHAR occupies when displayed."
   1)
 
+(defalias 'char-length 'char-bytes)
+
 (defmacro char-next-index (char index)
   "Return index of character succeeding CHAR whose index is INDEX."
   (` (1+ index)))
 
-;;; @@ Mule emulating aliases
-;;;
-;;; You should not use them.
-
-;;(defalias 'char-leading-char 'char-charset)
-
-;;; @@ obsoleted aliases
-;;;
-;;; You should not use them.
-
-(defalias 'char-length 'char-bytes)
-;;(defalias 'char-columns 'char-width)
-
 
 ;;; @ string
 ;;;
 
-(defalias 'string-columns 'length)
+(defalias 'string-width 'length)
 
 (defun string-to-char-list (str)
   (mapcar (function identity) str)
@@ -288,10 +277,12 @@ Optional non-nil arg START-COLUMN specifies the starting column.
   (substring str start-column width)
   )
 
-;;; @@ for old MULE emulation
+;;; @@ obsoleted aliases
 ;;;
+;;; You should not use them.
 
-(defalias 'string-width 'length)
+(defalias 'string-columns 'length)
+(make-obsolete 'string-columns 'string-width)
 
 
 ;;; @ end