diff options
| -rw-r--r-- | lisp/rect.el | 5 |
1 files changed, 2 insertions, 3 deletions
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 @@ | |||
| 37 | 37 | ||
| 38 | ;;;###autoload | 38 | ;;;###autoload |
| 39 | (defun move-to-column-force (column &optional flag) | 39 | (defun move-to-column-force (column &optional flag) |
| 40 | "Obsolete. Use `move-to-column'. | 40 | "If COLUMN is within a multi-column character, replace it by spaces and tab. |
| 41 | If COLUMN is within a multi-column character, replace it by spaces and tab. | ||
| 42 | As for `move-to-column', passing anything but nil or t in FLAG will move to | 41 | As for `move-to-column', passing anything but nil or t in FLAG will move to |
| 43 | the desired column only if the line is long enough." | 42 | the desired column only if the line is long enough." |
| 44 | (move-to-column column (or flag t))) | 43 | (move-to-column column (or flag t))) |
| 45 | (make-obsolete 'move-to-column-force "move-to-column" "21.2") | 44 | (make-obsolete 'move-to-column-force 'move-to-column "21.2") |
| 46 | 45 | ||
| 47 | ;; not used any more --dv | 46 | ;; not used any more --dv |
| 48 | ;; extract-rectangle-line stores lines into this list | 47 | ;; extract-rectangle-line stores lines into this list |