compile advice

scratch.el

;; Just an idea for Boscop. When (eq display-buffer-reuse-frames t)
;; display-buffer will raise the frame showing the compilation
;; buffer. This advice raises the original frame so focus is not in
;; the compilation buffer frame.
(defadvice compile (around avoid-compile-switching-frames activate)
  (let ((cf (selected-frame)))
        ad-do-it
        (raise-frame cf)))