diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-10-16 18:46:36 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-10-16 18:46:36 +0000 |
| commit | 7b33b170cd6d431f6c307e075d3554538ea4a2b2 (patch) | |
| tree | 6fe175267e517f43eb63975738476cb65aecd326 /lisp/double.el | |
| parent | e8955f1d904454bc424d1446b1a0299c558e7aad (diff) | |
| download | emacs-7b33b170cd6d431f6c307e075d3554538ea4a2b2.tar.gz | |
Removed changelog comment section.
(double): New group.
(double-map): Add customize support.
(double-prefix-only): Ditto.
Diffstat (limited to 'lisp/double.el')
| -rw-r--r-- | lisp/double.el | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/lisp/double.el b/lisp/double.el index 14b2a58606d..a494c6585be 100644 --- a/lisp/double.el +++ b/lisp/double.el @@ -1,6 +1,6 @@ ;;; double.el --- Support for keyboard remapping with double clicking -;; Copyright (C) 1994 Free Software Foundation, Inc. +;; Copyright (C) 1994,1997 Free Software Foundation, Inc. ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: i18n @@ -49,18 +49,13 @@ ;; of such mappings, and just supporting the most common would ;; increase the size of this nice small file manyfold. -;;; ChangeLog: - -;; * 1994-06-21 Per Abrahamsen -;; Added `double-prefix-only'. -;; * 1994-02-28 Per Abrahamsen -;; Use 127 instead of 'delete to delete a character. -;; * 1994-02-03 Per Abrahamsen -;; Created. - ;;; Code: -(defvar double-map +(defgroup double nil + "Remap keyboard, but get original by typing the same key twice." + :group 'i18n) + +(defcustom double-map '((?\; "\346" ";") (?\' "\370" "'") (?\[ "\345" "[") @@ -72,12 +67,18 @@ Each entry is a list with three elements: 1. The key activating the translation. 2. The string to be inserted when the key is pressed once. -3. The string to be inserted when the key is pressed twice.") +3. The string to be inserted when the key is pressed twice." + :group 'double + :type '(repeat (list (character :tag "Key") + (string :tag "Once") + (string :tag "Twice")))) -(defvar double-prefix-only t +(defcustom double-prefix-only t "*Non-nil means that Double mode mapping only works for prefix keys. That is, for any key `X' in `double-map', `X' alone will be mapped -but not `C-u X' or `ESC X' since the X is not the prefix key.") +but not `C-u X' or `ESC X' since the X is not the prefix key." + :group 'double + :type 'boolean) ;;; Read Event |