Mercurial > emacs
comparison lisp/progmodes/idlw-shell.el @ 64835:4694417f9930
(idlwave-xemacs-hack-mouse-track): Avoid warnings.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 09 Aug 2005 11:41:11 +0000 |
| parents | 629afbe74e61 |
| children | fb2cad4cfb30 |
comparison
equal
deleted
inserted
replaced
| 64834:c53317ac1865 | 64835:4694417f9930 |
|---|---|
| 2759 ;;; on drag events, calling drag-n-drop code if detected. Ughhh... | 2759 ;;; on drag events, calling drag-n-drop code if detected. Ughhh... |
| 2760 (defun idlwave-default-mouse-track-event-is-with-button (event n) | 2760 (defun idlwave-default-mouse-track-event-is-with-button (event n) |
| 2761 t) | 2761 t) |
| 2762 | 2762 |
| 2763 (defun idlwave-xemacs-hack-mouse-track (event) | 2763 (defun idlwave-xemacs-hack-mouse-track (event) |
| 2764 (let ((oldfunc (symbol-function 'default-mouse-track-event-is-with-button))) | 2764 (if (featurep 'xemacs) |
| 2765 (unwind-protect | 2765 (let ((oldfunc (symbol-function 'default-mouse-track-event-is-with-button))) |
| 2766 (progn | 2766 (unwind-protect |
| 2767 (fset 'default-mouse-track-event-is-with-button | 2767 (progn |
| 2768 'idlwave-default-mouse-track-event-is-with-button) | 2768 (fset 'default-mouse-track-event-is-with-button |
| 2769 (mouse-track event)) | 2769 'idlwave-default-mouse-track-event-is-with-button) |
| 2770 (fset 'default-mouse-track-event-is-with-button oldfunc)))) | 2770 (mouse-track event)) |
| 2771 (fset 'default-mouse-track-event-is-with-button oldfunc))))) | |
| 2771 ;;; End terrible hack section | 2772 ;;; End terrible hack section |
| 2772 | 2773 |
| 2773 (defun idlwave-shell-mouse-print (event) | 2774 (defun idlwave-shell-mouse-print (event) |
| 2774 "Print value of variable at the mouse position, with `help'" | 2775 "Print value of variable at the mouse position, with `help'" |
| 2775 (interactive "e") | 2776 (interactive "e") |