Re: grep-find bug when compilation-window-height not nil

[Richard Stallman]

    Setting (setq compilation-window-height 15) (or anything other than
    nil) seems to cause problems with grep-find's output.

Does this give you the right behavior?

cd ~/emacs/lisp/progmodes/
diff -c /home/rms/emacs/lisp/progmodes/compile.el.\~30\~ 
/home/rms/emacs/lisp/progmodes/compile.el.\~30a\~
*** /home/rms/emacs/lisp/progmodes/compile.el.~30~      Mon Jun 30 09:55:51 2003
--- /home/rms/emacs/lisp/progmodes/compile.el.~30a~     Sun Sep 21 18:00:44 2003
***************
*** 1080,1089 ****
          (set (make-local-variable 'lazy-lock-defer-on-scrolling) t)
        (setq default-directory thisdir
              compilation-directory-stack (list default-directory))
        (set-window-start outwin (point-min))
        (or (eq outwin (selected-window))
            (set-window-point outwin (point-min)))
-       (compilation-set-window-height outwin)
        (if compilation-process-setup-function
            (funcall compilation-process-setup-function))
        ;; Start the compilation.
--- 1080,1089 ----
          (set (make-local-variable 'lazy-lock-defer-on-scrolling) t)
        (setq default-directory thisdir
              compilation-directory-stack (list default-directory))
+       (compilation-set-window-height outwin)
        (set-window-start outwin (point-min))
        (or (eq outwin (selected-window))
            (set-window-point outwin (point-min)))
        (if compilation-process-setup-function
            (funcall compilation-process-setup-function))
        ;; Start the compilation.

Diff finished at Sun Sep 21 18:01:28