Re: Show *compilation* only if build did not succeed

[Stefan Monnier]

> (defadvice compilation-start
>     (around inhibit-display
>             (command &optional mode name-function highlight-regexp))
>   (if (not (string-match "^\\(find\\|grep\\)" command))
>       (cl-letf (((symbol-function 'display-buffer)   #'ignore)
>                 ((symbol-function 'set-window-point) #'ignore)
>                 ((symbol-function 'goto-char)        #'ignore))
>         (save-window-excursion ad-do-it))
>     ad-do-it))

BTW, is the `goto-char` override really effective?
It doesn't affect calls to goto-char made from byte-compiled code, so
there's a good chance that it ends up not doing anything.


        Stefan