Mercurial > emacs
changeset 20128:a5d0f051dd57
(tpu-arrange-rectangle): Use FORCE arg of move-to-column.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 23 Oct 1997 06:42:50 +0000 |
| parents | 75c24766a23a |
| children | a68db1ead5cf |
| files | lisp/emulation/tpu-edt.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/tpu-edt.el Thu Oct 23 06:40:32 1997 +0000 +++ b/lisp/emulation/tpu-edt.el Thu Oct 23 06:42:50 1997 +0000 @@ -1297,15 +1297,15 @@ (exchange-point-and-mark)) ; point -> upper-left (t ; point @ lower-left - (move-to-column-force mc) ; point -> lower-right + (move-to-column mc t) ; point -> lower-right (exchange-point-and-mark) ; point -> upper-right - (move-to-column-force pc)))) ; point -> upper-left + (move-to-column pc t)))) ; point -> upper-left (t ; point on upper line (cond ((> pc mc) ; point @ upper-right - (move-to-column-force mc) ; point -> upper-left + (move-to-column mc t) ; point -> upper-left (exchange-point-and-mark) ; point -> lower-left - (move-to-column-force pc) ; point -> lower-right + (move-to-column pc t) ; point -> lower-right (exchange-point-and-mark))))))) ; point -> upper-left (defun tpu-cut-text nil