Mercurial > hg > xemacs-beta
diff lisp/hyperbole/hmouse-reg.el @ 100:4be1180a9e89 r20-1b2
Import from CVS: tag r20-1b2
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:15:11 +0200 |
| parents | 131b0175ea99 |
| children |
line wrap: on
line diff
--- a/lisp/hyperbole/hmouse-reg.el Mon Aug 13 09:13:58 2007 +0200 +++ b/lisp/hyperbole/hmouse-reg.el Mon Aug 13 09:15:11 2007 +0200 @@ -6,280 +6,293 @@ ;; KEYWORDS: hypermedia, mouse ;; ;; AUTHOR: Bob Weiner -;; ORG: Brown U. +;; ORG: InfoDock Associates ;; ;; ORIG-DATE: 3-Sep-91 at 21:40:58 -;; LAST-MOD: 14-Sep-95 at 18:39:04 by Bob Weiner +;; LAST-MOD: 21-Feb-97 at 18:02:33 by Bob Weiner +;; +;; This file is part of Hyperbole. +;; Available for use and distribution under the same terms as GNU Emacs. +;; +;; Copyright (C) 1991-1997, Free Software Foundation, Inc. +;; Developed with support from Motorola Inc. + ;;; ************************************************************************ ;;; Public functions ;;; ************************************************************************ (defun hmouse-get-bindings () "Returns list of bindings for mouse keys prior to their use as Smart Keys." - (eval - (cdr (assoc - ;; Get mouse bindings under Emacs 19 or XEmacs, even if not under a - ;; window system since it can have frames on ttys and windowed - ;; displays at the same time. - (or hyperb:window-system - (and (not noninteractive) hyperb:xemacs-p "lemacs") - (and (not noninteractive) hyperb:emacs19-p "emacs19")) - '(("emacs19" . - (mapcar (function - (lambda (key) (cons key (lookup-key global-map key)))) - (if (memq window-system '(ns dps)) - ;; NEXTSTEP offers only 2 mouse buttons which we use - ;; as the Smart Keys. We move the mouse-set-point - ;; command to shift-left. - '([down-mouse-1] [mouse-1] [down-mouse-2] [mouse-2] - [double-mouse-1] [triple-mouse-1] + ;; Do nothing when running in batch mode. + (if noninteractive + nil + (eval + (cdr (assoc + ;; Get mouse bindings under Emacs 19 or XEmacs, even if not under a + ;; window system since it can have frames on ttys and windowed + ;; displays at the same time. + (or (and hyperb:xemacs-p "lemacs") + (and hyperb:emacs19-p "emacs19") + hyperb:window-system) + '(("emacs19" . + (mapcar (function + (lambda (key) (cons key (lookup-key global-map key)))) + (if (memq window-system '(ns dps)) + ;; NEXTSTEP offers only 2 mouse buttons which we use + ;; as the Smart Keys. We move the mouse-set-point + ;; command to shift-left. + '([down-mouse-1] [mouse-1] [down-mouse-2] [mouse-2] + [double-mouse-1] [triple-mouse-1] + [double-mouse-2] [triple-mouse-2] + [vertical-line down-mouse-1] [vertical-line mouse-1] + [vertical-line down-mouse-2] [vertical-line mouse-2] + [mode-line down-mouse-1] [mode-line mouse-1] + [mode-line down-mouse-2] [mode-line mouse-2] + [S-mouse-1] + ) + ;; X + '([down-mouse-2] [mouse-2] [down-mouse-3] [mouse-3] [double-mouse-2] [triple-mouse-2] - [vertical-line down-mouse-1] [vertical-line mouse-1] + [double-mouse-3] [triple-mouse-3] [vertical-line down-mouse-2] [vertical-line mouse-2] - [mode-line down-mouse-1] [mode-line mouse-1] + [vertical-line down-mouse-3] [vertical-line mouse-3] [mode-line down-mouse-2] [mode-line mouse-2] - [S-mouse-1] - ) - ;; X - '([down-mouse-2] [mouse-2] [down-mouse-3] [mouse-3] - [double-mouse-2] [triple-mouse-2] - [double-mouse-3] [triple-mouse-3] - [vertical-line down-mouse-2] [vertical-line mouse-2] - [vertical-line down-mouse-3] [vertical-line mouse-3] - [mode-line down-mouse-2] [mode-line mouse-2] - [mode-line down-mouse-3] [mode-line mouse-3] - )))) - ("lemacs" . - (nconc - (mapcar (function - (lambda (key) - (cons key (lookup-key global-map key)))) - '([button2] [button2up] [button3] [button3up])) - (if (boundp 'mode-line-map) - (mapcar (function - (lambda (key) - (cons key (lookup-key mode-line-map key)))) - '([button3] [button3up]))))) - ("xterm" . - (mapcar (function - (lambda (key) (cons key (lookup-key mouse-map key)))) - (list x-button-middle x-button-middle-up - x-button-right x-button-right-up))) - ("epoch" . - (mapcar (function - (lambda (key) (cons key (aref mouse::global-map key)))) - (list (mouse::index mouse-middle mouse-down) - (mouse::index mouse-middle mouse-up) - (mouse::index mouse-right mouse-down) - (mouse::index mouse-right mouse-up) - ;; Modeline mouse map - (mouse::index mouse-mode-middle mouse-down) - (mouse::index mouse-mode-middle mouse-up) - (mouse::index mouse-mode-right mouse-down) - (mouse::index mouse-mode-right mouse-up) - ))) - ("next" . - (mapcar (function - (lambda (key) - (cons key (mousemap-get - (mouse-list-to-mouse-code key) - current-global-mousemap)))) - (apply 'nconc - (mapcar (function - (lambda (region) - (mapcar (function - (lambda (key) - (cons region key))) - '((left) (up left) (shift left) - (right) (up right) - )))) - '(text scrollbar modeline minibuffer))) - )) - ;; SunView - ("sun" . - (mapcar (function - (lambda (key) - (setq key (mouse-list-to-mouse-code key)) - (cons key (mousemap-get - key current-global-mousemap)))) - (apply 'nconc - (mapcar (function - (lambda (region) - (mapcar (function - (lambda (key) - (cons region key))) - '((middle) (up middle) - (right) (up right) - )))) - '(text scrollbar modeline minibuffer))) - )) - ("apollo" . - (mapcar (function - (lambda (key-str) (apollo-mouse-key-and-binding - key-str))) - '("M2D" "M2U" "M3D" "M3U"))) - ))))) + [mode-line down-mouse-3] [mode-line mouse-3] + )))) + ("lemacs" . + (nconc + (mapcar (function + (lambda (key) + (cons key (lookup-key global-map key)))) + '([button2] [button2up] [button3] [button3up])) + (if (boundp 'mode-line-map) + (mapcar (function + (lambda (key) + (cons key (lookup-key mode-line-map key)))) + '([button3] [button3up]))))) + ("xterm" . + (mapcar (function + (lambda (key) (cons key (lookup-key mouse-map key)))) + (list x-button-middle x-button-middle-up + x-button-right x-button-right-up))) + ("epoch" . + (mapcar (function + (lambda (key) (cons key (aref mouse::global-map key)))) + (list (mouse::index mouse-middle mouse-down) + (mouse::index mouse-middle mouse-up) + (mouse::index mouse-right mouse-down) + (mouse::index mouse-right mouse-up) + ;; Modeline mouse map + (mouse::index mouse-mode-middle mouse-down) + (mouse::index mouse-mode-middle mouse-up) + (mouse::index mouse-mode-right mouse-down) + (mouse::index mouse-mode-right mouse-up) + ))) + ("next" . + (mapcar (function + (lambda (key) + (cons key (mousemap-get + (mouse-list-to-mouse-code key) + current-global-mousemap)))) + (apply 'nconc + (mapcar (function + (lambda (region) + (mapcar (function + (lambda (key) + (cons region key))) + '((left) (up left) (shift left) + (right) (up right) + )))) + '(text scrollbar modeline minibuffer))) + )) + ;; SunView + ("sun" . + (mapcar (function + (lambda (key) + (setq key (mouse-list-to-mouse-code key)) + (cons key (mousemap-get + key current-global-mousemap)))) + (apply 'nconc + (mapcar (function + (lambda (region) + (mapcar (function + (lambda (key) + (cons region key))) + '((middle) (up middle) + (right) (up right) + )))) + '(text scrollbar modeline minibuffer))) + )) + ("apollo" . + (mapcar (function + (lambda (key-str) (apollo-mouse-key-and-binding + key-str))) + '("M2D" "M2U" "M3D" "M3U"))) + )))))) (defun hmouse-setup () "Binds mouse keys for use as Smart Keys." (interactive) - (or hmouse-bindings-flag hmouse-previous-bindings - (setq hmouse-previous-bindings (hmouse-get-bindings))) - ;; Ensure Gillespie's Info mouse support is off since - ;; Hyperbole handles that. - (setq Info-mouse-support nil) - ;; - (cond ;; GNU Emacs 19 - ((if (not noninteractive) hyperb:emacs19-p) - (setq hmouse-set-point-command 'mouse-set-point) - ;; Get rid of Info-mode [mouse-2] binding since Hyperbole performs - ;; a superset of what it does. - (add-hook 'Info-mode-hook - (function (lambda () (define-key Info-mode-map [mouse-2] nil)))) - ;; - (if (memq window-system '(ns dps)) - ;; NEXTSTEP offers only 2 mouse buttons which we use - ;; as the Smart Keys. We move the mouse-set-point - ;; command to shift-left. - (progn - (global-set-key [S-down-mouse-1] 'mouse-drag-region) - (global-set-key [S-mouse-1] 'mouse-set-point) - (global-set-key [down-mouse-1] 'action-key-depress-emacs19) - (global-set-key [mouse-1] 'action-mouse-key-emacs19) - (global-set-key [double-mouse-1] 'action-mouse-key-emacs19) - (global-set-key [triple-mouse-1] 'action-mouse-key-emacs19) - (global-set-key [down-mouse-2] 'assist-key-depress-emacs19) - (global-set-key [mouse-2] 'assist-mouse-key-emacs19) - (global-set-key [double-mouse-2] 'assist-mouse-key-emacs19) - (global-set-key [triple-mouse-2] 'assist-mouse-key-emacs19) - (global-set-key [vertical-line down-mouse-1] 'action-key-depress-emacs19) - (global-set-key [vertical-line mouse-1] 'action-mouse-key-emacs19) - (global-set-key [vertical-line down-mouse-2] 'assist-key-depress-emacs19) - (global-set-key [vertical-line mouse-2] 'assist-mouse-key-emacs19) - (global-set-key [mode-line down-mouse-2] 'action-key-depress-emacs19) - (global-set-key [mode-line mouse-2] 'action-mouse-key-emacs19) - (global-set-key [mode-line down-mouse-3] 'assist-key-depress-emacs19) - (global-set-key [mode-line mouse-3] 'assist-mouse-key-emacs19)) - ;; X - (global-set-key [down-mouse-2] 'action-key-depress-emacs19) - (global-set-key [mouse-2] 'action-mouse-key-emacs19) - (global-set-key [double-mouse-2] 'action-mouse-key-emacs19) - (global-set-key [triple-mouse-2] 'action-mouse-key-emacs19) - (global-set-key [down-mouse-3] 'assist-key-depress-emacs19) - (global-set-key [mouse-3] 'assist-mouse-key-emacs19) - (global-set-key [double-mouse-3] 'assist-mouse-key-emacs19) - (global-set-key [triple-mouse-3] 'assist-mouse-key-emacs19) - (global-set-key [vertical-line down-mouse-2] 'action-key-depress-emacs19) - (global-set-key [vertical-line mouse-2] 'action-mouse-key-emacs19) - (global-set-key [vertical-line down-mouse-3] 'assist-key-depress-emacs19) - (global-set-key [vertical-line mouse-3] 'assist-mouse-key-emacs19) - (global-set-key [mode-line down-mouse-2] 'action-key-depress-emacs19) - (global-set-key [mode-line mouse-2] 'action-mouse-key-emacs19) - (global-set-key [mode-line down-mouse-3] 'assist-key-depress-emacs19) - (global-set-key [mode-line mouse-3] 'assist-mouse-key-emacs19))) - ;; - ;; XEmacs - ((if (not noninteractive) hyperb:xemacs-p) - ;; Set mouse bindings under XEmacs, even if not under a window - ;; system since it can have frames on ttys and windowed displays at - ;; the same time. - (setq hmouse-set-point-command 'hmouse-move-point-xemacs) - ;; Get rid of Info-mode buttons 2 and 3 bindings since Hyperbole - ;; handles things in Info. - (add-hook 'Info-mode-hook - (function (lambda () - (define-key Info-mode-map 'button2 nil)))) + ;; Do nothing when running in batch mode. + (if noninteractive + nil + (or hmouse-bindings-flag hmouse-previous-bindings + (setq hmouse-previous-bindings (hmouse-get-bindings))) + ;; Ensure Gillespie's Info mouse support is off since + ;; Hyperbole handles that. + (setq Info-mouse-support nil) ;; - (global-set-key 'button2 'action-key-depress) - (global-set-key 'button2up 'action-mouse-key) - (if (fboundp 'infodock-set-mouse-bindings) - (infodock-set-mouse-bindings) - (let ((unbind-but3 - (function (lambda () - (define-key Info-mode-map 'button3 nil))))) - (if (and (boundp 'Info-mode-map) (keymapp Info-mode-map)) - (funcall unbind-but3) - (add-hook 'Info-mode-hook unbind-but3))) - (if (boundp 'mode-line-map) - (progn (define-key mode-line-map 'button3 'assist-key-depress) - (define-key mode-line-map 'button3up 'assist-mouse-key))) - (global-set-key 'button3 'assist-key-depress) - (global-set-key 'button3up 'assist-mouse-key))) - ;; - ;; X - ((equal hyperb:window-system "xterm") - (setq hmouse-set-point-command 'x-mouse-set-point) - (define-key mouse-map x-button-middle 'action-key-depress) - (define-key mouse-map x-button-middle-up 'action-mouse-key) - (define-key mouse-map x-button-right 'assist-key-depress) - (define-key mouse-map x-button-right-up 'assist-mouse-key) - ;; Use these instead of the above for a true META-BUTTON binding. - ;; (define-key mouse-map x-button-m-middle 'assist-key-depress) - ;; (define-key mouse-map x-button-m-middle-up 'assist-mouse-key) - ) - ;; - ;; Epoch - ((equal hyperb:window-system "epoch") - (setq hmouse-set-point-command 'mouse::set-point) - (global-set-mouse mouse-middle mouse-down 'action-key-depress) - (global-set-mouse mouse-middle mouse-up 'action-mouse-key) - (global-set-mouse mouse-right mouse-down 'assist-key-depress) - (global-set-mouse mouse-right mouse-up 'assist-mouse-key) - ;; Modeline mouse map - (global-set-mouse mouse-mode-middle mouse-down 'action-key-depress) - (global-set-mouse mouse-mode-middle mouse-up 'action-mouse-key) - (global-set-mouse mouse-mode-right mouse-down 'assist-key-depress) - (global-set-mouse mouse-mode-right mouse-up 'assist-mouse-key) - ) - ;; - ;; NeXT - ((equal hyperb:window-system "next") - (setq hmouse-set-point-command 'hmouse-move-point-eterm) - ;; Use shift-left button to set point. - ;; Use left button instead of non-existent middle as Smart Key. - (mapcar - (function - (lambda (region) - (global-set-mouse (cons region '(shift left)) 'mouse-move-point) - (global-set-mouse (cons region '(left)) 'action-key-depress) - (global-set-mouse (cons region '(up left)) 'action-mouse-key) - (global-set-mouse (cons region '(right)) 'assist-key-depress) - (global-set-mouse (cons region '(up right)) 'assist-mouse-key) - ;; Use these instead of the above for a true META-BUTTON binding. - ;; (global-set-mouse (cons region '(meta right)) 'assist-key-depress) - ;; (global-set-mouse (cons region '(meta up right)) 'assist-mouse-key) - )) - '(text scrollbar modeline minibuffer)) - ) - ;; - ;; SunView - ((equal hyperb:window-system "sun") - (setq hmouse-set-point-command 'hmouse-move-point-eterm) - (mapcar - (function - (lambda (region) - (global-set-mouse (cons region '(middle)) 'action-key-depress) - (global-set-mouse (cons region '(up middle)) 'action-mouse-key) - (global-set-mouse (cons region '(right)) 'assist-key-depress) - (global-set-mouse (cons region '(up right)) 'assist-mouse-key) - ;; Use these instead of the above for a true META-BUTTON binding. - ;; (global-set-mouse (cons region '(meta middle)) 'assist-key-depress) - ;; (global-set-mouse (cons region '(meta up middle)) 'assist-mouse-key) - )) - '(text scrollbar modeline minibuffer)) - ) - ;; - ;; Apollo DM - ((equal hyperb:window-system "apollo") - (setq hmouse-set-point-command 'apollo-mouse-move-point) - (bind-apollo-mouse-button "M2D" 'action-key-depress) - (bind-apollo-mouse-button "M2U" 'action-mouse-key) - (bind-apollo-mouse-button "M3D" 'assist-key-depress) - (bind-apollo-mouse-button "M3U" 'assist-mouse-key) - ;; Use these instead of the above for a true META-BUTTON binding. - ;; (bind-apollo-mouse-button "M2U" 'action-mouse-key - ;; 'assist-mouse-key) - ;; (bind-apollo-mouse-button "M2D" 'action-key-depress 'assist-key-depress) - )) - (setq hmouse-bindings (hmouse-get-bindings) - hmouse-bindings-flag t)) + (cond;; GNU Emacs 19 + (hyperb:emacs19-p + (setq hmouse-set-point-command 'mouse-set-point) + ;; Get rid of Info-mode [mouse-2] binding since Hyperbole performs + ;; a superset of what it does. + (add-hook 'Info-mode-hook + (function (lambda () (define-key Info-mode-map [mouse-2] nil)))) + ;; + (if (memq window-system '(ns dps)) + ;; NEXTSTEP offers only 2 mouse buttons which we use + ;; as the Smart Keys. We move the mouse-set-point + ;; command to shift-left. + (progn + (global-set-key [S-down-mouse-1] 'mouse-drag-region) + (global-set-key [S-mouse-1] 'mouse-set-point) + (global-set-key [down-mouse-1] 'action-key-depress-emacs19) + (global-set-key [mouse-1] 'action-mouse-key-emacs19) + (global-set-key [double-mouse-1] 'action-mouse-key-emacs19) + (global-set-key [triple-mouse-1] 'action-mouse-key-emacs19) + (global-set-key [down-mouse-2] 'assist-key-depress-emacs19) + (global-set-key [mouse-2] 'assist-mouse-key-emacs19) + (global-set-key [double-mouse-2] 'assist-mouse-key-emacs19) + (global-set-key [triple-mouse-2] 'assist-mouse-key-emacs19) + (global-set-key [vertical-line down-mouse-1] 'action-key-depress-emacs19) + (global-set-key [vertical-line mouse-1] 'action-mouse-key-emacs19) + (global-set-key [vertical-line down-mouse-2] 'assist-key-depress-emacs19) + (global-set-key [vertical-line mouse-2] 'assist-mouse-key-emacs19) + (global-set-key [mode-line down-mouse-2] 'action-key-depress-emacs19) + (global-set-key [mode-line mouse-2] 'action-mouse-key-emacs19) + (global-set-key [mode-line down-mouse-3] 'assist-key-depress-emacs19) + (global-set-key [mode-line mouse-3] 'assist-mouse-key-emacs19)) + ;; X + (global-set-key [down-mouse-2] 'action-key-depress-emacs19) + (global-set-key [mouse-2] 'action-mouse-key-emacs19) + (global-set-key [double-mouse-2] 'action-mouse-key-emacs19) + (global-set-key [triple-mouse-2] 'action-mouse-key-emacs19) + (global-set-key [down-mouse-3] 'assist-key-depress-emacs19) + (global-set-key [mouse-3] 'assist-mouse-key-emacs19) + (global-set-key [double-mouse-3] 'assist-mouse-key-emacs19) + (global-set-key [triple-mouse-3] 'assist-mouse-key-emacs19) + (global-set-key [vertical-line down-mouse-2] 'action-key-depress-emacs19) + (global-set-key [vertical-line mouse-2] 'action-mouse-key-emacs19) + (global-set-key [vertical-line down-mouse-3] 'assist-key-depress-emacs19) + (global-set-key [vertical-line mouse-3] 'assist-mouse-key-emacs19) + (global-set-key [mode-line down-mouse-2] 'action-key-depress-emacs19) + (global-set-key [mode-line mouse-2] 'action-mouse-key-emacs19) + (global-set-key [mode-line down-mouse-3] 'assist-key-depress-emacs19) + (global-set-key [mode-line mouse-3] 'assist-mouse-key-emacs19))) + ;; + ;; XEmacs + (hyperb:xemacs-p + ;; Set mouse bindings under XEmacs, even if not under a window + ;; system since it can have frames on ttys and windowed displays at + ;; the same time. + (setq hmouse-set-point-command 'hmouse-move-point-xemacs) + ;; Get rid of Info-mode buttons 2 and 3 bindings since Hyperbole + ;; handles things in Info. + (add-hook 'Info-mode-hook + (function (lambda () + (define-key Info-mode-map 'button2 nil)))) + ;; + (global-set-key 'button2 'action-key-depress) + (global-set-key 'button2up 'action-mouse-key) + (if (fboundp 'infodock-set-mouse-bindings) + (infodock-set-mouse-bindings) + (let ((unbind-but3 + (function (lambda () + (define-key Info-mode-map 'button3 nil))))) + (if (and (boundp 'Info-mode-map) (keymapp Info-mode-map)) + (funcall unbind-but3) + (add-hook 'Info-mode-hook unbind-but3))) + (if (boundp 'mode-line-map) + (progn (define-key mode-line-map 'button3 'assist-key-depress) + (define-key mode-line-map 'button3up 'assist-mouse-key))) + (global-set-key 'button3 'assist-key-depress) + (global-set-key 'button3up 'assist-mouse-key))) + ;; + ;; X + ((equal hyperb:window-system "xterm") + (setq hmouse-set-point-command 'x-mouse-set-point) + (define-key mouse-map x-button-middle 'action-key-depress) + (define-key mouse-map x-button-middle-up 'action-mouse-key) + (define-key mouse-map x-button-right 'assist-key-depress) + (define-key mouse-map x-button-right-up 'assist-mouse-key) + ;; Use these instead of the above for a true META-BUTTON binding. + ;; (define-key mouse-map x-button-m-middle 'assist-key-depress) + ;; (define-key mouse-map x-button-m-middle-up 'assist-mouse-key) + ) + ;; + ;; Epoch + ((equal hyperb:window-system "epoch") + (setq hmouse-set-point-command 'mouse::set-point) + (global-set-mouse mouse-middle mouse-down 'action-key-depress) + (global-set-mouse mouse-middle mouse-up 'action-mouse-key) + (global-set-mouse mouse-right mouse-down 'assist-key-depress) + (global-set-mouse mouse-right mouse-up 'assist-mouse-key) + ;; Modeline mouse map + (global-set-mouse mouse-mode-middle mouse-down 'action-key-depress) + (global-set-mouse mouse-mode-middle mouse-up 'action-mouse-key) + (global-set-mouse mouse-mode-right mouse-down 'assist-key-depress) + (global-set-mouse mouse-mode-right mouse-up 'assist-mouse-key) + ) + ;; + ;; NeXT + ((equal hyperb:window-system "next") + (setq hmouse-set-point-command 'hmouse-move-point-eterm) + ;; Use shift-left button to set point. + ;; Use left button instead of non-existent middle as Smart Key. + (mapcar + (function + (lambda (region) + (global-set-mouse (cons region '(shift left)) 'mouse-move-point) + (global-set-mouse (cons region '(left)) 'action-key-depress) + (global-set-mouse (cons region '(up left)) 'action-mouse-key) + (global-set-mouse (cons region '(right)) 'assist-key-depress) + (global-set-mouse (cons region '(up right)) 'assist-mouse-key) + ;; Use these instead of the above for a true META-BUTTON binding. + ;; (global-set-mouse (cons region '(meta right)) 'assist-key-depress) + ;; (global-set-mouse (cons region '(meta up right)) 'assist-mouse-key) + )) + '(text scrollbar modeline minibuffer)) + ) + ;; + ;; SunView + ((equal hyperb:window-system "sun") + (setq hmouse-set-point-command 'hmouse-move-point-eterm) + (mapcar + (function + (lambda (region) + (global-set-mouse (cons region '(middle)) 'action-key-depress) + (global-set-mouse (cons region '(up middle)) 'action-mouse-key) + (global-set-mouse (cons region '(right)) 'assist-key-depress) + (global-set-mouse (cons region '(up right)) 'assist-mouse-key) + ;; Use these instead of the above for a true META-BUTTON binding. + ;; (global-set-mouse (cons region '(meta middle)) 'assist-key-depress) + ;; (global-set-mouse (cons region '(meta up middle)) 'assist-mouse-key) + )) + '(text scrollbar modeline minibuffer)) + ) + ;; + ;; Apollo DM + ((equal hyperb:window-system "apollo") + (setq hmouse-set-point-command 'apollo-mouse-move-point) + (bind-apollo-mouse-button "M2D" 'action-key-depress) + (bind-apollo-mouse-button "M2U" 'action-mouse-key) + (bind-apollo-mouse-button "M3D" 'assist-key-depress) + (bind-apollo-mouse-button "M3U" 'assist-mouse-key) + ;; Use these instead of the above for a true META-BUTTON binding. + ;; (bind-apollo-mouse-button "M2U" 'action-mouse-key + ;; 'assist-mouse-key) + ;; (bind-apollo-mouse-button "M2D" 'action-key-depress 'assist-key-depress) + )) + (setq hmouse-bindings (hmouse-get-bindings) + hmouse-bindings-flag t)))