mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-05 11:45:45 +00:00
bc511a64f6
Most of this change is to boilerplate commentary such as license URLs. This change was prompted by ftp://ftp.gnu.org's going-away party, planned for November. Change these FTP URLs to https://ftp.gnu.org instead. Make similar changes for URLs to other organizations moving away from FTP. Also, change HTTP to HTTPS for URLs to gnu.org and fsf.org when this works, as this will further help defend against man-in-the-middle attacks (for this part I omitted the MS-DOS and MS-Windows sources and the test tarballs to keep the workload down). HTTPS is not fully working to lists.gnu.org so I left those URLs alone for now.
111 lines
3.4 KiB
EmacsLisp
111 lines
3.4 KiB
EmacsLisp
;;; vt-control.el --- Common VTxxx control functions
|
|
|
|
;; Copyright (C) 1993-1994, 2001-2017 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 3 of the License, 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. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
;;; 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 (called-interactively-p 'interactive))
|
|
(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 (called-interactively-p 'interactive))
|
|
(message "Applications keypad disabled.")))
|
|
|
|
(defun vt-numlock nil
|
|
"Toggle VT application keypad on and off."
|
|
(interactive)
|
|
(if vt-applications-keypad-p
|
|
(vt-keypad-off (called-interactively-p 'interactive))
|
|
(vt-keypad-on (called-interactively-p 'interactive))))
|
|
|
|
(provide 'vt-control)
|
|
|
|
;;; vt-control.el ends here
|