37 |
|
|
38 |
;;;###autoload |
;;;###autoload |
39 |
(defun move-to-column-force (column &optional flag) |
(defun move-to-column-force (column &optional flag) |
40 |
"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. |
|
41 |
As for `move-to-column', passing anything but nil or t in FLAG will move to |
As for `move-to-column', passing anything but nil or t in FLAG will move to |
42 |
the desired column only if the line is long enough." |
the desired column only if the line is long enough." |
43 |
(move-to-column column (or flag t))) |
(move-to-column column (or flag t))) |
44 |
(make-obsolete 'move-to-column-force "move-to-column" "21.2") |
|
45 |
|
;;;###autoload |
46 |
|
(make-obsolete 'move-to-column-force 'move-to-column "21.2") |
47 |
|
|
48 |
;; not used any more --dv |
;; not used any more --dv |
49 |
;; extract-rectangle-line stores lines into this list |
;; extract-rectangle-line stores lines into this list |
187 |
(setq val (concat " " val) |
(setq val (concat " " val) |
188 |
n (- n 8))) |
n (- n 8))) |
189 |
(concat val (aref spaces-strings n))))) |
(concat val (aref spaces-strings n))))) |
190 |
|
|
191 |
;;;###autoload |
;;;###autoload |
192 |
(defun delete-rectangle (start end &optional fill) |
(defun delete-rectangle (start end &optional fill) |
193 |
"Delete (don't save) text in the region-rectangle. |
"Delete (don't save) text in the region-rectangle. |