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") |