blob: 135cb99bd2181f7cabd15f0665e2591570104e4f (
plain)
1
2
3
4
5
6
7
8
9
10
|
(defun run-perl_checker ()
(interactive)
(save-some-buffers 1)
(compile (concat "perl_checker --restrict-to-files " (buffer-file-name (current-buffer)))))
(let ((hook '(lambda ()
(local-set-key [(control return)] 'run-perl_checker)
)))
(add-hook 'perl-mode-hook hook)
(add-hook 'cperl-mode-hook hook))
|
