Skip to content
Browse files

(with-selected-window): Define while compiling.

Ignore-this: d6cfa106e9f5d09f84d8c666683eaded

darcs-hash:20070214191840-c2f2e-8c746ec038674c41adfb20c784bca68a791b94c7.gz
  • Loading branch information...
1 parent c80cff5 commit ce51306ae1fb6fc0771f35a84baaf3838089c17a monnier committed Feb 14, 2007
Showing with 6 additions and 5 deletions.
  1. +6 −5 inf-haskell.el
View
11 inf-haskell.el
@@ -151,11 +151,12 @@ setting up the inferior-haskell buffer."
(let ((proc (inferior-haskell-process arg)))
(pop-to-buffer (process-buffer proc))))
-(unless (fboundp 'with-selected-window)
- (defmacro with-selected-window (win &rest body)
- `(save-selected-window
- (select-window ,win)
- ,@body)))
+(eval-when-compile
+ (unless (fboundp 'with-selected-window)
+ (defmacro with-selected-window (win &rest body)
+ `(save-selected-window
+ (select-window ,win)
+ ,@body))))
(defcustom inferior-haskell-wait-and-jump nil
"If non-nil, wait for file loading to terminate and jump to the error."

0 comments on commit ce51306

Please sign in to comment.
Something went wrong with that request. Please try again.