/[emacs]/emacs/lisp/progmodes/idlw-shell.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/idlw-shell.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.41 by nickrob, Mon Aug 1 08:37:48 2005 UTC revision 3.42 by rms, Tue Aug 9 11:41:11 2005 UTC
# Line 2761  Runs to the last statement and then step Line 2761  Runs to the last statement and then step
2761    t)    t)
2762    
2763  (defun idlwave-xemacs-hack-mouse-track (event)  (defun idlwave-xemacs-hack-mouse-track (event)
2764    (let ((oldfunc (symbol-function 'default-mouse-track-event-is-with-button)))    (if (featurep 'xemacs)
2765      (unwind-protect        (let ((oldfunc (symbol-function 'default-mouse-track-event-is-with-button)))
2766          (progn          (unwind-protect
2767            (fset 'default-mouse-track-event-is-with-button              (progn
2768                  'idlwave-default-mouse-track-event-is-with-button)                (fset 'default-mouse-track-event-is-with-button
2769            (mouse-track event))                      'idlwave-default-mouse-track-event-is-with-button)
2770        (fset 'default-mouse-track-event-is-with-button oldfunc))))                (mouse-track event))
2771              (fset 'default-mouse-track-event-is-with-button oldfunc)))))
2772  ;;; End terrible hack section  ;;; End terrible hack section
2773    
2774  (defun idlwave-shell-mouse-print (event)  (defun idlwave-shell-mouse-print (event)

Legend:
Removed from v.3.41  
changed lines
  Added in v.3.42

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26