Mercurial > hg > xemacs-beta

diff lisp/keymap.el @ 304:c6de09ad3017 r21-0b50

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b50
author cvs
date Mon, 13 Aug 2007 10:41:12 +0200
parents 558f606b08ae
children
line wrap: on
line diff
--- a/lisp/keymap.el	Mon Aug 13 10:40:50 2007 +0200
+++ b/lisp/keymap.el	Mon Aug 13 10:41:12 2007 +0200
@@ -354,7 +354,7 @@
                        (error
                          "Mouse events can't be saved in keyboard macros."))
                    (setq mods (event-modifiers event)
-                         key (intern (concat "button"
+                         key (intern (format "button%d%s"
                                              (event-button event)
                                              (if (button-release-event-p event)
                                                  "up" ""))))