1 files changed, 0 insertions, 112 deletions
diff --git a/lisp/vt-control.el b/lisp/vt-control.el
deleted file mode 100644
index 509365bf4a4..00000000000
--- a/lisp/vt-control.el
+++ /dev/null
@@ -1,112 +0,0 @@
-;;; vt-control.el --- Common VTxxx control functions
-
-;; Copyright (C) 1993 Free Software Foundation, Inc.
-
-;; Author: Rob Riepel <riepel@networking.stanford.edu>
-;; Maintainer: Rob Riepel <riepel@networking.stanford.edu>
-;; Keywords: terminals
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-
-;;; Commentary:
-
-;;  The functions contained in this file send various VT control codes
-;;  to the terminal where emacs is running.  The following functions are
-;;  available.
-
-;;    Function           Action
-
-;;    vt-wide            set wide screen (132 characters)
-;;    vt-narrow          set narrow screen (80 characters)
-;;    vt-toggle-screen   toggle wide/narrow screen
-;;    vt-keypad-on       set applications keypad on
-;;    vt-keypad-off      set applications keypad off
-;;    vt-numlock         toggle applications keypad on/off
-
-;;; Usage:
-
-;;  To use enable these functions, simply load this file.
-
-;;  Note: vt-control makes no effort to determine how the terminal is
-;;        initially set.  It assumes the terminal starts with a width
-;;        of 80 characters and the applications keypad enabled.  Nor
-;;        does vt-control try to restore the terminal when emacs is
-;;        killed or suspended.
-
-;;; Code:
-
-
-;;;  Revision Information
-
-(defconst vt-revision "$Revision: 1.3 $"
-  "Revision number of vt-control.")
-
-
-;;;  Global variables
-
-(defvar vt-applications-keypad-p t
-  "If non-nil, keypad is in applications mode.")
-
-(defvar vt-wide-p nil
-  "If non-nil, the screen is 132 characters wide.")
-
-
-;;;  Screen width functions.
-
-(defun vt-wide nil
-  "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
-  "Toggle between 80 and 132 character screen width."
-  (interactive)
-  (if vt-wide-p (vt-narrow) (vt-wide)))
-
-
-;;;  Applications keypad functions.
-
-(defun vt-keypad-on (&optional tell)
-  "Turn on the VT applications keypad."
-  (interactive)
-  (send-string-to-terminal "\e[\e=")
-  (setq vt-applications-keypad-p t)
-  (if (or tell (interactive-p)) (message "Applications keypad enabled.")))
-
-(defun vt-keypad-off (&optional tell)
-  "Turn off the VT applications keypad."
-  (interactive "p")
-  (send-string-to-terminal "\e[\e>")
-  (setq vt-applications-keypad-p nil)
-  (if (or tell (interactive-p)) (message "Applications keypad disabled.")))
-
-(defun vt-numlock nil
-  "Toggle VT application keypad on and off."
-  (interactive)
-  (if vt-applications-keypad-p (vt-keypad-off (interactive-p))
-    (vt-keypad-on (interactive-p))))
-
-;;; vt-control.el ends here