Commit 5867a409 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(double-prefix-only): New variable.

(double-translate-key): Use it.
parent 1d08cb50
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment