Use the plist of an abbrev for multiple params if nec.
(Fdefine_abbrev): New arg SYSTEM-FLAG for a system abbrev.
(Fdefine_global_abbrev, Fdefine_mode_abbrev):
Update calls to Fdefine_abbrev.
(write_abbrev): Update for changed data format.
Don't list "system" abbrevs.
(Fexpand_abbrev): Update use count with new data format.
(describe_abbrev): Update for changed data format.
(Fdefine_abbrev_table): Handle the new SYSTEM-FLAG.
;;; vt-control.el --- Common VTxxx control functions;; Copyright (C) 1993, 1994 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, 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);;; vt-control.el ends here