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

[Miles Bader]

Index: emacs/lisp/vt-control.el
diff -c /dev/null emacs/lisp/vt-control.el:1.9.4.1
*** /dev/null   Tue Oct 14 19:52:38 2003
--- emacs/lisp/vt-control.el    Tue Oct 14 19:51:28 2003
***************
*** 0 ****
--- 1,110 ----
+ ;;; vt-control.el --- Common VTxxx control functions
+ 
+ ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
+ 
+ ;; Author: Rob Riepel <address@hidden>
+ ;; Maintainer: Rob Riepel <address@hidden>
+ ;; 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, Inc., 59 Temple Place - Suite 330,
+ ;; Boston, MA 02111-1307, 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:
+ 
+ 
+ ;;;  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-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
+   "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=")
+   (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>")
+   (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))))
+ 
+ (provide 'vt-control)
+ 
+ ;;; arch-tag: d4fed1bf-2524-4ba1-a4fe-86bca3d928a2
+ ;;; vt-control.el ends here