[bpt/emacs.git] / lisp / term / vt200.el

(defun terminal-80-columns ()
  (interactive)
  (send-string-to-terminal "\033[?3l")
  (set-frame-width 80))

(defun terminal-132-columns ()
  (interactive)
  (send-string-to-terminal "\033[?3h")
  (set-frame-width 132))
Commit	Line	Data
942f076c JB	1	(defun terminal-80-columns ()
	2	(interactive)
	3	(send-string-to-terminal "\033[?3l")
0cc89026	4	(set-frame-width 80))
942f076c JB	5
	6	(defun terminal-132-columns ()
	7	(interactive)
	8	(send-string-to-terminal "\033[?3h")
0cc89026	9	(set-frame-width 132))