if the function has a name, the name is now used as the name of the keybinding

svn: r8744 original commit: f2c8ff355edb425230391408cf8e6d38fb359446
2008-02-20 21:02:30 +00:00 · 2008-02-20 21:02:30 +00:00 · 57cd0ce3ac
commit 57cd0ce3ac
parent 4c7831c04c
1 changed files with 8 additions and 3 deletions
--- a/collects/framework/keybinding-lang.ss
+++ b/collects/framework/keybinding-lang.ss
@ -29,9 +29,14 @@
                             proc
                             key))
                    (set! counter (+ counter 1))
-                    (let ([name (if (and line col)
-                                    (format "~a:~a.~a:~a" src line col counter)
-                                    (format "~a:~a:~a" src pos counter))])
+                    (let ([name 
+                           (cond
+                             [(symbol? (object-name proc))
+                              (format "~a" (object-name proc))]
+                             [(and line col)
+                              (format "~a:~a.~a:~a" src line col counter)]
+                             [else
+                              (format "~a:~a:~a" src pos counter)])])
                      (send #%keymap add-function name 
                            (λ (x y)
                              (let ([end-edit-sequence