Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c4ae5fdd
Commit
c4ae5fdd
authored
Aug 09, 2005
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(idlwave-xemacs-hack-mouse-track): Avoid warnings.
parent
ce56d46a
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
7 deletions
+8
-7
lisp/progmodes/idlw-shell.el
lisp/progmodes/idlw-shell.el
+8
-7
No files found.
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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment