--- a/.emacs-my	Thu Sep 22 01:58:21 2011 +0300
+++ b/.emacs-my	Thu Sep 22 23:25:21 2011 +0300
@@ -1320,11 +1320,12 @@
   "History list for `my-comint-send-string'."
   )
 (defun my-comint-send-string (string)
-  "Send string to comint buffers. Useful for *compilation* read-only buffer."
+  "Send string to comint buffers. Useful for *compilation* read-only buffer.
+Automaticaly append final newline."
   (interactive
    (list (read-input "Type string: " nil 'my-comint-send-hist-list))
    )
-  (comint-send-string (get-buffer-process (current-buffer)) string)
+  (comint-send-string (get-buffer-process (current-buffer)) (concat string "\n"))
   )
 (eval-after-load 'compile
   '(progn