Skip to content

GitLab

Commit c4ae5fdd authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent ce56d46a
Hide whitespace changes
Inline Side-by-side
Showing with 8 additions and 7 deletions
lisp/progmodes/idlw-shell.el
View file @ c4ae5fdd
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment