From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 9 Aug 2005 11:41:11 +0000 (+0000)
Subject: (idlwave-xemacs-hack-mouse-track): Avoid warnings.
X-Git-Tag: emacs-pretest-22.0.90~7701
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c4ae5fdde85caa29b894955bba1369aa042945c3;p=emacs.git

(idlwave-xemacs-hack-mouse-track): Avoid warnings.
---

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