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)
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
