# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1312296729 -10800
# Node ID 3f9a497c4ff76a71312d245168781b3026cc079e
# Parent  c8f7a49f06a99473455a49bc772624fb08f70145# Parent  ec015b06e121db45d0dbf10d7ab87ab37b1a9157
Automated merge with file:///cygdrive/d/srv/hg-home/dot-emacs

diff -r c8f7a49f06a9 -r 3f9a497c4ff7 .emacs-my
--- a/.emacs-my	Sun Jul 31 22:31:00 2011 +0300
+++ b/.emacs-my	Tue Aug 02 17:52:09 2011 +0300
@@ -1294,6 +1294,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")