;;;###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")
+
+;;;###autoload
+(make-obsolete 'move-to-column-force 'move-to-column "21.2")
;; not used any more --dv
;; extract-rectangle-line stores lines into this list
(setq val (concat " " val)
n (- n 8)))
(concat val (aref spaces-strings n)))))
-
+
;;;###autoload
(defun delete-rectangle (start end &optional fill)
"Delete (don't save) text in the region-rectangle.