[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/idlw-shell.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/idlw-shell.el |
Date: |
Tue, 09 Aug 2005 07:41:11 -0400 |
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)