-*** Run Perl
-Change the compile-command to set the default command run when call =compile=
-Mapping =s-r= (on Mac, it's =Command + R= to run the script. Here =current-prefix-arg= is set
-to call =compilation= interactively.
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- ;; this has be implemented in below compile part
- ;; (defun my-perl-hook ()
- ;; (progn
- ;; (setq-local compilation-read-command nil)
- ;; (set (make-local-variable 'compile-command)
- ;; (concat "/usr/bin/perl "
- ;; (if buffer-file-name
- ;; (shell-quote-argument buffer-file-name))))
- ;; (local-set-key (kbd "s-r")
- ;; (lambda ()
- ;; (interactive)
- ;; ; (setq current-prefix-arg '(4)) ; C-u
- ;; (call-interactively 'compile)))))
-
- ;; (add-hook 'cperl-mode-hook 'my-perl-hook)
-#+END_SRC
-