gistfile1.el

(defun make-erlang ()
  (interactive)
  (let* ((my-buffer (current-buffer))
         (my-file (file-name-nondirectory buffer-file-name)))
    (when (switch-to-buffer "*erlang*")
      (goto-char (point-max))
      (insert (concat "make:files([" my-file "], [netload])."))
      (comint-send-input))
    (switch-to-buffer my-buffer)))

(setq
 load-path (cons "/usr/local/lib/erlang/lib/tools-2.6.5.1/emacs" load-path)
 erlang-root-dir "/usr/local/lib/erlang"
 exec-path (cons "/usr/local/lib/erlang/bin" exec-path))

(when (require 'erlang-start nil 'noerror)
  (global-set-key [f7] 'make-erlang))