# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1312296642 -10800
# Node ID ec015b06e121db45d0dbf10d7ab87ab37b1a9157
# Parent  d10f2e70ff5ea7869f0f0c6df3038f90e6ea3c01
my-comint-send-string

diff -r d10f2e70ff5e -r ec015b06e121 .emacs-my
--- a/.emacs-my	Tue Jul 19 23:14:10 2011 +0300
+++ b/.emacs-my	Tue Aug 02 17:50:42 2011 +0300
@@ -1281,6 +1281,18 @@
        )
      ))
 
+(defvar my-comint-send-hist-list nil
+  "History list for `my-comint-send-string'."
+  )
+(defun my-comint-send-string (string)
+  "Send string to comint buffers. Useful for *compilation* read-only buffer."
+  (interactive
+   (list (read-input "Type string: " nil 'my-comint-send-hist-list))
+   )
+  (comint-send-string (get-buffer-process (current-buffer)) string)
+  )
+(define-key compilation-mode-map [C-return] 'my-comint-send-string)
+
 ;;; ----------------------------------------------------------------
 (message "TAGS, etags, ctags, GNU GLOBAL")