Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
303:d02ffe1d75ed 304:c6de09ad3017
352 (button-release-event-p event)) 352 (button-release-event-p event))
353 (if no-mice 353 (if no-mice
354 (error 354 (error
355 "Mouse events can't be saved in keyboard macros.")) 355 "Mouse events can't be saved in keyboard macros."))
356 (setq mods (event-modifiers event) 356 (setq mods (event-modifiers event)
357 key (intern (concat "button" 357 key (intern (format "button%d%s"
358 (event-button event) 358 (event-button event)
359 (if (button-release-event-p event) 359 (if (button-release-event-p event)
360 "up" "")))) 360 "up" ""))))
361 (aset new i (if mods 361 (aset new i (if mods
362 (nconc mods (cons key nil)) 362 (nconc mods (cons key nil))