66 |
"Set the screen 132 characters wide." |
"Set the screen 132 characters wide." |
67 |
(interactive) |
(interactive) |
68 |
(send-string-to-terminal "\e[?3h") |
(send-string-to-terminal "\e[?3h") |
69 |
(set-screen-width 132) |
(set-frame-width (selected-frame) 132) |
70 |
(setq vt-wide-p t)) |
(setq vt-wide-p t)) |
71 |
|
|
72 |
(defun vt-narrow nil |
(defun vt-narrow nil |
73 |
"Set the screen 80 characters wide." |
"Set the screen 80 characters wide." |
74 |
(interactive) |
(interactive) |
75 |
(send-string-to-terminal "\e[?3l") |
(send-string-to-terminal "\e[?3l") |
76 |
(set-screen-width 80) |
(set-frame-width (selected-frame) 80) |
77 |
(setq vt-wide-p nil)) |
(setq vt-wide-p nil)) |
78 |
|
|
79 |
(defun vt-toggle-screen nil |
(defun vt-toggle-screen nil |