From: Juanma Barranquero <lekktu@gmail.com>
Date: Thu, 27 Jun 2002 16:09:51 +0000 (+0000)
Subject: (move-to-column-force): Likewise.
X-Git-Tag: ttn-vms-21-2-B4~14412
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92e306372a63085058a78c4eab344da395a2bbf1;p=emacs.git

(move-to-column-force): Likewise.
---

diff --git a/lisp/rect.el b/lisp/rect.el
index dd674a07bbb..933a2de81ff 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -37,12 +37,11 @@
 
 ;;;###autoload
 (defun move-to-column-force (column &optional flag)
-  "Obsolete.  Use `move-to-column'.
-If COLUMN is within a multi-column character, replace it by spaces and tab.
+  "If COLUMN is within a multi-column character, replace it by spaces and tab.
 As for `move-to-column', passing anything but nil or t in FLAG will move to
 the desired column only if the line is long enough."
   (move-to-column column (or flag t)))
-(make-obsolete 'move-to-column-force "move-to-column" "21.2")
+(make-obsolete 'move-to-column-force 'move-to-column "21.2")
 
 ;; not used any more --dv
 ;; extract-rectangle-line stores lines into this list