Mercurial > hg > xemacs-beta

comparison lisp/keydefs.el @ 4315:26ec8d0f3a9c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Bind mouse wheel movements by default, to a lambda that calls the autoloaded #'mwheel-install and then #'mwheel-scrool with the appropriate event.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 08 Dec 2007 13:18:49 +0100
parents dd935ef485d2
children 9e28067e3083
comparison
equal deleted inserted replaced
4314:f95358fda5d8 4315:26ec8d0f3a9c
672 (define-key global-map 'insertline 'open-line) 672 (define-key global-map 'insertline 'open-line)
673 (define-key global-map 'deleteline 'kill-line) 673 (define-key global-map 'deleteline 'kill-line)
674 ;(define-key global-map 'insertchar 'function-key-error) 674 ;(define-key global-map 'insertchar 'function-key-error)
675 (define-key global-map 'deletechar 'delete-char) 675 (define-key global-map 'deletechar 'delete-char)
676 676
677 ;; Bind the mouse wheel by default.
678 (dolist (keyspec '([(mouse-4)] [(shift mouse-4)] [(control mouse-4)]
679 [(mouse-5)] [(shift mouse-5)] [(control mouse-5)]))
680 (define-key global-map keyspec
681 #'(lambda (event)
682 (interactive "e")
683 (mwheel-install)
684 (declare-fboundp (mwheel-scroll event)))))
677 ;;; keydefs.el ends here 685 ;;; keydefs.el ends here