/[emacs]/emacs/lisp/vt-control.el
ViewVC logotype

Diff of /emacs/lisp/vt-control.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by rms, Sun Jun 22 18:53:09 1997 UTC revision 1.9 by pj, Tue Dec 25 11:11:32 2001 UTC
# Line 66  Line 66 
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

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26