[Emacs-diffs] Changes to emacs/lisp/progmodes/idlw-shell.el

[Richard M . Stallman]

Index: emacs/lisp/progmodes/idlw-shell.el
diff -c emacs/lisp/progmodes/idlw-shell.el:3.41 
emacs/lisp/progmodes/idlw-shell.el:3.42
*** emacs/lisp/progmodes/idlw-shell.el:3.41     Mon Aug  1 08:37:48 2005
--- emacs/lisp/progmodes/idlw-shell.el  Tue Aug  9 11:41:11 2005
***************
*** 2761,2773 ****
    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))))
  ;;; End terrible hack section
  
  (defun idlwave-shell-mouse-print (event)
--- 2761,2774 ----
    t)
  
  (defun idlwave-xemacs-hack-mouse-track (event)
!   (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)