From 1eebfa630fbbfcd8796ee58a88fd13a9e5a5dbd9 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Thu, 9 Apr 1998 15:18:43 +0000
Subject: [PATCH] Use 'make-obsolete for 'string-columns.

---
 emu-e19.el |    5 +++--
 emu-e20.el |    9 +++++++--
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/emu-e19.el b/emu-e19.el
index 4e5e10e..8ade763 100644
--- a/emu-e19.el
+++ b/emu-e19.el
@@ -269,7 +269,7 @@ find-file-hooks, etc.
 ;;; @ string
 ;;;
 
-(defalias 'string-columns 'length)
+(defalias 'string-width 'length)
 
 (defun string-to-char-list (str)
   (mapcar (function identity) str)
@@ -291,7 +291,8 @@ Optional non-nil arg START-COLUMN specifies the starting column.
 ;;; @@ for old MULE emulation
 ;;;
 
-(defalias 'string-width 'length)
+(defalias 'string-columns 'length)
+(make-obsolete 'string-columns 'string-width)
 
 
 ;;; @ end
diff --git a/emu-e20.el b/emu-e20.el
index cfdd741..e5a8f7a 100644
--- a/emu-e20.el
+++ b/emu-e20.el
@@ -200,8 +200,6 @@ TABLE defaults to the current buffer's category table."
 ;;; @ string
 ;;;
 
-(defalias 'string-columns 'string-width)
-
 (defalias 'sset 'store-substring)
 
 (defun string-to-char-list (string)
@@ -219,6 +217,13 @@ TABLE defaults to the current buffer's category table."
 
 (defalias 'string-to-int-list 'string-to-char-list)
 
+;;; @@ obsoleted aliases
+;;;
+;;; You should not use them.
+
+(defalias 'string-columns 'string-width)
+(make-obsolete 'string-columns 'string-width)
+
 
 ;;; @ end
 ;;;
-- 
1.7.10.4