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

(double-prefix-only): New variable.

Browse source 
(double-translate-key): Use it.
This commit is contained in:
Richard M. Stallman 1994-06-22 18:03:28 +00:00
parent 1d08cb509a
commit 5867a409ee
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/double.el
View file

@ -52,6 +52,10 @@
;;; 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.
@ -71,6 +75,11 @@ Each entry is a list with three elements:
2. The string to be inserted when the key is pressed once.
3. The string to be inserted when the key is pressed twice.")
(defvar 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.")
;;; Read Event
(defvar double-last-event nil)
@ -99,6 +108,10 @@ Each entry is a list with three elements:
(cond (unread-command-events
;; Artificial event, ignore it.
(vector key))
((and double-prefix-only
(> (length (this-command-keys)) 1))
;; This is not a prefix key, ignore it.
(vector key))
((eq key 'magic-start)
;; End of generated event. See if he will repeat it...
(let ((new (double-read-event prompt))