Re: Emacs and Perl syntax compile

[Kevin Rodgers <ihs_4664@yahoo.com>]

andrew.maguire@ps.ge.com wrote:

> I do this to set up C-c C-c to do the compile:
> 
> ;;Compilation mode for perl files
> (require 'compile)
> (add-to-list 'compilation-error-regexp-alist
> 	       '(".* \\([-a-zA-Z._/]+\\) line \\([0-9]+\\)." 1 2))

So far, so good.

> (defun perl-compile (&optional prefix)
>   "Compile perl file"
>   (interactive "P")
>   (let* ((include-path (if (eq window-system 'w32) "-I%SP%" "-I$SP")) 
> 	 (compile-command (concat "perl "include-path " -cw "
> (buffer-file-name)))
> 	 (compilation-read-command prefix))
>     (call-interactively 'compile)))

Why not just:

(add-hook 'perl-mode-hook
	  (lambda ()
	    (set (make-local-variable 'compile-command)
		 (format "perl %s -cw %s"
			 (if (eq window-system 'w32) "-I%SP%" "-I$SP")
			 (file-name-nondirectory buffer-file-name)))))

> (require 'perl-mode)
> (require 'cperl-mode)


Can perl-mode and cperl-mode be used simultaneously?

> (define-key perl-mode-map "\C-c\C-c" 'perl-compile)
> (define-key cperl-mode-map "\C-c\C-c" 'perl-compile)


When compile-command is buffer local, you can just bind a key to the
normal compile command.

-- 
Kevin Rodgers