[Emacs-diffs] Changes to emacs/lisp/vt-control.el

[Pavel Janík]

Index: emacs/lisp/vt-control.el
diff -c emacs/lisp/vt-control.el:1.8 emacs/lisp/vt-control.el:1.9
*** emacs/lisp/vt-control.el:1.8        Sun Jun 22 14:53:09 1997
--- emacs/lisp/vt-control.el    Tue Dec 25 06:11:32 2001
***************
*** 66,79 ****
    "Set the screen 132 characters wide."
    (interactive)
    (send-string-to-terminal "\e[?3h")
!   (set-screen-width 132)
    (setq vt-wide-p t))
  
  (defun vt-narrow nil
    "Set the screen 80 characters wide."
    (interactive)
    (send-string-to-terminal "\e[?3l")
!   (set-screen-width 80)
    (setq vt-wide-p nil))
  
  (defun vt-toggle-screen nil
--- 66,79 ----
    "Set the screen 132 characters wide."
    (interactive)
    (send-string-to-terminal "\e[?3h")
!   (set-frame-width (selected-frame) 132)
    (setq vt-wide-p t))
  
  (defun vt-narrow nil
    "Set the screen 80 characters wide."
    (interactive)
    (send-string-to-terminal "\e[?3l")
!   (set-frame-width (selected-frame) 80)
    (setq vt-wide-p nil))
  
  (defun vt-toggle-screen nil