Converting from compile-internal to compilation-start

Converting from compile-internal to compilation-start

[kidologie]

Hello - after upgrading to emacs22, I see that compile-internal is now
obsolete - I need to use compilation-start.

What is the correct way to do this:

 (compile-internal (concat "nits -emacs" command)
		    "All done" "rt-nits" nil grep-regexp-alist)

using compilation-start?

Thanks!

Re: Converting from compile-internal to compilation-start

[kidologie]

On Jan 7, 4:13 pm, kidologie <richwel...@gmail.com> wrote:
> Hello - after upgrading to emacs22, I see that compile-internal is now
> obsolete - I need to use compilation-start.
>
> What is the correct way to do this:
>
>  (compile-internal (concat "nits -emacs" command)
>                     "All done" "rt-nits" nil grep-regexp-alist)
>
> using compilation-start?
>
> Thanks!

Ok this handles both emacs21 and emacs 22 versions:

(defun my-compile-start (command &optional mode buf-name highlight-
regexp)
  (if (fboundp 'compilation-start)    ; Emacs 22
      (compilation-start command mode
             #'(lambda (mode-name) (concat "*" buf-name "*"))
highlight-regexp)
    ; else
    (compile-internal command
              "No more hits" buf-name nil highlight-regexp)))

Re: Converting from compile-internal to compilation-start

[Kevin Rodgers]

kidologie wrote:
> Hello - after upgrading to emacs22, I see that compile-internal is now
> obsolete - I need to use compilation-start.
> 
> What is the correct way to do this:
> 
>  (compile-internal (concat "nits -emacs" command)
> 		    "All done" "rt-nits" nil grep-regexp-alist)
> 
> using compilation-start?

Try

(compilation-start (concat "nits -emacs" command)
		   'grep-mode (lambda () "rt-nits"))

-- 
Kevin Rodgers
Denver, Colorado, USA

Re: Converting from compile-internal to compilation-start

[kidologie]

On Jan 8, 10:24 am, Kevin Rodgers <kevin.d.rodg...@gmail.com> wrote:
> kidologie wrote:
> > Hello - after upgrading to emacs22, I see that compile-internal is now
> > obsolete - I need to use compilation-start.
>
> > What is the correct way to do this:
>
> >  (compile-internal (concat "nits -emacs" command)
> >                "All done" "rt-nits" nil grep-regexp-alist)
>
> > using compilation-start?
>
> Try
>
> (compilation-start (concat "nits -emacs" command)
>                    'grep-mode (lambda () "rt-nits"))
>
> --
> Kevin Rodgers
> Denver, Colorado, USA

Hmm had problems:
compilation-buffer-name: Wrong number of arguments: #[nil "À‡" ["rt-
nits"] 1 "rt-nits"], 1

I did:

  (compilation-start (concat "/auto/eigrp/bin/nits -emacs " command)
		    nil #'(lambda (mode-name) "*rt-nits*"))

And that worked fine - I just pulled it as an example from the emacs
source - without understanding why it's happy.

Which brings me to another point with the new compilation-start - why
am I forced to enter a mode - as in your example - 'grep-mode? In my
cases I'm just kicking off a unix script under the covers and it
doesn't below to any particular mode..

Thanks!

Re: Converting from compile-internal to compilation-start

[Kevin Rodgers]

kidologie wrote:
> Hmm had problems:
> compilation-buffer-name: Wrong number of arguments: #[nil "À‡" ["rt-
> nits"] 1 "rt-nits"], 1
> 
> I did:
> 
>   (compilation-start (concat "/auto/eigrp/bin/nits -emacs " command)
> 		    nil #'(lambda (mode-name) "*rt-nits*"))
> 
> And that worked fine - I just pulled it as an example from the emacs
> source - without understanding why it's happy.

Oops, sorry for forgetting the mode-name argument.

> Which brings me to another point with the new compilation-start - why
> am I forced to enter a mode - as in your example - 'grep-mode? In my
> cases I'm just kicking off a unix script under the covers and it
> doesn't below to any particular mode..

The mode defines the regexp-alist used to match errors/hits/whatever you
want to navigate to via C-x `.

-- 
Kevin Rodgers
Denver, Colorado, USA