diff options
| author | Richard M. Stallman | 2005-08-09 11:41:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-08-09 11:41:11 +0000 |
| commit | c4ae5fdde85caa29b894955bba1369aa042945c3 (patch) | |
| tree | 4b4fc73c20c3af190a4b5073a77a25c1e0dd5585 | |
| parent | ce56d46ac7e10e9ff069a895c2023959e89719d4 (diff) | |
| download | emacs-c4ae5fdde85caa29b894955bba1369aa042945c3.tar.gz emacs-c4ae5fdde85caa29b894955bba1369aa042945c3.zip | |
(idlwave-xemacs-hack-mouse-track): Avoid warnings.
| -rw-r--r-- | lisp/progmodes/idlw-shell.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index 7c1324c94af..3d6076cd52d 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el | |||
| @@ -2761,13 +2761,14 @@ Runs to the last statement and then steps 1 statement. Use the .out command." | |||
| 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) |