Mercurial > emacs
changeset 64835:4694417f9930
(idlwave-xemacs-hack-mouse-track): Avoid warnings.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 09 Aug 2005 11:41:11 +0000 |
| parents | c53317ac1865 |
| children | 4457ed27ac76 |
| files | lisp/progmodes/idlw-shell.el |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/idlw-shell.el Tue Aug 09 11:40:22 2005 +0000 +++ b/lisp/progmodes/idlw-shell.el Tue Aug 09 11:41:11 2005 +0000 @@ -2761,13 +2761,14 @@ 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)