From 5867a409eebad8a6433e59c540ebdd4bccb72543 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 22 Jun 1994 18:03:28 +0000 Subject: (double-prefix-only): New variable. (double-translate-key): Use it. --- lisp/double.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'lisp') diff --git a/lisp/double.el b/lisp/double.el index 4de4b8a1dd..cd27f31fbb 100644 --- a/lisp/double.el +++ b/lisp/double.el @@ -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)) -- cgit v1.2.3