 
 (defconst erlang-unload-hook
   (list (lambda ()
-	  (when (featurep 'advice)
-	    (ad-unadvise 'Man-notify-when-ready)
-	    (ad-unadvise 'set-visited-file-name)))))
-
-
-(defun erlang-string-to-int (string) 
+          (when (featurep 'advice)
+            (ad-unadvise 'Man-notify-when-ready)
+            (ad-unadvise 'set-visited-file-name)))))
+
+
+(defun erlang-string-to-int (string)
   (if (fboundp 'string-to-number)
       (string-to-number string)
     (funcall (symbol-function 'string-to-int) string)))

  (or (inferior-erlang-running-p)
      (error "No inferior Erlang process is running"))
  (let ((old-buffer (current-buffer))
	(insert-point (marker-position (process-mark inferior-erlang-process)))
	(insert-length (if comint-process-echoes
			   0
			 (1+ (length cmd)))))
    (set-buffer inferior-erlang-buffer)
    (goto-char insert-point)
    (insert cmd)

  (let ((map (make-sparse-keymap)))
    (unless (boundp 'indent-line-function)
      (define-key map "\t"        'erlang-indent-command))
    (define-key map ";"       'erlang-electric-semicolon)
    (define-key map ","       'erlang-electric-comma)
    (define-key map "<"         'erlang-electric-lt)
    (define-key map ">"         'erlang-electric-gt)
    (define-key map "\C-m"      'erlang-electric-newline)
