Mercurial > emacs
comparison lisp/emulation/tpu-edt.el @ 42324:e6593c956da9
(tpu-reset-screen-size): Use set-frame-height and set-frame-width instead
of set-screen-height and set-screen-width.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Tue, 25 Dec 2001 11:20:28 +0000 |
| parents | 32f917f3edf7 |
| children | b9725f269733 |
comparison
equal
deleted
inserted
replaced
| 42323:c86cd54b5c50 | 42324:e6593c956da9 |
|---|---|
| 673 tpu-version)) | 673 tpu-version)) |
| 674 | 674 |
| 675 (defun tpu-reset-screen-size (height width) | 675 (defun tpu-reset-screen-size (height width) |
| 676 "Sets the screen size." | 676 "Sets the screen size." |
| 677 (interactive "nnew screen height: \nnnew screen width: ") | 677 (interactive "nnew screen height: \nnnew screen width: ") |
| 678 (set-screen-height height) | 678 (set-frame-height (selected-frame) height) |
| 679 (set-screen-width width)) | 679 (set-frame-width (selected-frame) width)) |
| 680 | 680 |
| 681 (defun tpu-toggle-newline-and-indent nil | 681 (defun tpu-toggle-newline-and-indent nil |
| 682 "Toggle between 'newline and indent' and 'simple newline'." | 682 "Toggle between 'newline and indent' and 'simple newline'." |
| 683 (interactive) | 683 (interactive) |
| 684 (cond (tpu-newline-and-indent-p | 684 (cond (tpu-newline-and-indent-p |