diff options
author | Richard M. Stallman <[email protected]> | 2005-08-09 11:41:11 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2005-08-09 11:41:11 +0000 |
commit | c4ae5fdde85caa29b894955bba1369aa042945c3 (patch) | |
tree | 4b4fc73c20c3af190a4b5073a77a25c1e0dd5585 /lisp/progmodes/idlw-shell.el | |
parent | ce56d46ac7e10e9ff069a895c2023959e89719d4 (diff) |
(idlwave-xemacs-hack-mouse-track): Avoid warnings.
Diffstat (limited to 'lisp/progmodes/idlw-shell.el')
-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 7c1324c94a..3d6076cd52 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." t) (defun idlwave-xemacs-hack-mouse-track (event) - (let ((oldfunc (symbol-function 'default-mouse-track-event-is-with-button))) - (unwind-protect - (progn - (fset 'default-mouse-track-event-is-with-button - 'idlwave-default-mouse-track-event-is-with-button) - (mouse-track event)) - (fset 'default-mouse-track-event-is-with-button oldfunc)))) + (if (featurep 'xemacs) + (let ((oldfunc (symbol-function 'default-mouse-track-event-is-with-button))) + (unwind-protect + (progn + (fset 'default-mouse-track-event-is-with-button + 'idlwave-default-mouse-track-event-is-with-button) + (mouse-track event)) + (fset 'default-mouse-track-event-is-with-button oldfunc))))) ;;; End terrible hack section (defun idlwave-shell-mouse-print (event) |