view lisp/term/vt200.el @ 2103:bd76e0e3622c

* term/x-win.el: Disable suspending under X windows by setting suspend-hooks, not suspend-hook. The latter is an obsolete name. Use add-hook instead of setting suspend-hooks directly.

(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))