Mercurial > hg > xemacs-beta

comparison lisp/gpm.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 74fd4e045ea6
children 7039e6323819
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
70 (eq (device-type device) 'tty) ; on a tty 70 (eq (device-type device) 'tty) ; on a tty
71 (equal "linux" (console-tty-terminal-type ; an a linux terminal type 71 (equal "linux" (console-tty-terminal-type ; an a linux terminal type
72 (device-console device)))) 72 (device-console device))))
73 (turn-off-gpm-mouse-tracking device))) 73 (turn-off-gpm-mouse-tracking device)))
74 74
75 ;; Restore normal mouse behaviour outside Emacs 75 ;; Restore normal mouse behavior outside Emacs
76 76
77 (add-hook 'suspend-hook 'turn-off-gpm-mouse-tracking) 77 (add-hook 'suspend-hook 'turn-off-gpm-mouse-tracking)
78 (add-hook 'suspend-resume-hook 'turn-on-gpm-mouse-tracking) 78 (add-hook 'suspend-resume-hook 'turn-on-gpm-mouse-tracking)
79 (add-hook 'create-device-hook 'gpm-create-device-hook) 79 (add-hook 'create-device-hook 'gpm-create-device-hook)
80 (add-hook 'delete-device-hook 'gpm-delete-device-hook) 80 (add-hook 'delete-device-hook 'gpm-delete-device-hook)