2014-01-07 18:36:07 +01:00
|
|
|
;;==============================================================================
|
|
|
|
;; Perl
|
|
|
|
;;==============================================================================
|
|
|
|
|
|
|
|
(defun perl-set-interpreter ()
|
|
|
|
"Use compile to run perl programs."
|
|
|
|
(interactive)
|
|
|
|
(set (make-local-variable 'compile-command)
|
|
|
|
(concat "perl " buffer-file-name)))
|
|
|
|
|
2014-02-13 16:30:05 +01:00
|
|
|
(add-hook
|
|
|
|
'python-mode-hook
|
|
|
|
(lambda ()
|
|
|
|
(set (make-local-variable 'compilation-scroll-output) t)
|
|
|
|
(perl-set-interpreter)))
|
2014-02-12 17:37:43 +01:00
|
|
|
|
|
|
|
(provide 'mode-perl)
|