From 02b90d6c1e49ff8174ba4e68ce6cfe95422e78bc Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 4 Jun 2006 22:28:36 +0000 Subject: [PATCH] fix to PR 7988 svn: r3222 original commit: b462f7cf2c0e4732691f429f35833f8dbff224ed --- collects/framework/keybinding-lang.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/framework/keybinding-lang.ss b/collects/framework/keybinding-lang.ss index 52492b32..2b5613a1 100644 --- a/collects/framework/keybinding-lang.ss +++ b/collects/framework/keybinding-lang.ss @@ -19,6 +19,7 @@ (syntax (#%plain-module-begin (define #%keymap (make-object keymap:aug-keymap%)) (provide #%keymap) + (define counter 0) (define (#%keybinding key proc src line col pos) (unless (string? key) (error 'keybinding "expected string as first argument, got ~e (other arg ~e)" key proc)) @@ -27,9 +28,10 @@ (error 'keybinding "expected procedure of two arguments as second argument, got ~e (other arg ~e)" proc key)) + (set! counter (+ counter 1)) (let ([name (if (and line col) - (format "~a:~a.~a" src line col) - (format "~a:~a" src pos))]) + (format "~a:~a.~a:~a" src line col counter) + (format "~a:~a:~a" src pos counter))]) (send #%keymap add-function name (λ (x y) (let ([end-edit-sequence