2761 |
t) |
t) |
2762 |
|
|
2763 |
(defun idlwave-xemacs-hack-mouse-track (event) |
(defun idlwave-xemacs-hack-mouse-track (event) |
2764 |
(let ((oldfunc (symbol-function 'default-mouse-track-event-is-with-button))) |
(if (featurep 'xemacs) |
2765 |
(unwind-protect |
(let ((oldfunc (symbol-function 'default-mouse-track-event-is-with-button))) |
2766 |
(progn |
(unwind-protect |
2767 |
(fset 'default-mouse-track-event-is-with-button |
(progn |
2768 |
'idlwave-default-mouse-track-event-is-with-button) |
(fset 'default-mouse-track-event-is-with-button |
2769 |
(mouse-track event)) |
'idlwave-default-mouse-track-event-is-with-button) |
2770 |
(fset 'default-mouse-track-event-is-with-button oldfunc)))) |
(mouse-track event)) |
2771 |
|
(fset 'default-mouse-track-event-is-with-button oldfunc))))) |
2772 |
;;; End terrible hack section |
;;; End terrible hack section |
2773 |
|
|
2774 |
(defun idlwave-shell-mouse-print (event) |
(defun idlwave-shell-mouse-print (event) |