mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Removed changelog comment section.

Browse source 
(double): New group.
(double-map): Add customize support.
(double-prefix-only): Ditto.
This commit is contained in:
Karl Heuer 1997-10-16 18:46:36 +00:00
parent e8955f1d90
commit 7b33b170cd
1 changed files with 15 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

29
lisp/double.el
View file

@ -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