equal
deleted
inserted
replaced
1318 |
1318 |
1319 (defvar my-comint-send-hist-list nil |
1319 (defvar my-comint-send-hist-list nil |
1320 "History list for `my-comint-send-string'." |
1320 "History list for `my-comint-send-string'." |
1321 ) |
1321 ) |
1322 (defun my-comint-send-string (string) |
1322 (defun my-comint-send-string (string) |
1323 "Send string to comint buffers. Useful for *compilation* read-only buffer." |
1323 "Send string to comint buffers. Useful for *compilation* read-only buffer. |
|
1324 Automaticaly append final newline." |
1324 (interactive |
1325 (interactive |
1325 (list (read-input "Type string: " nil 'my-comint-send-hist-list)) |
1326 (list (read-input "Type string: " nil 'my-comint-send-hist-list)) |
1326 ) |
1327 ) |
1327 (comint-send-string (get-buffer-process (current-buffer)) string) |
1328 (comint-send-string (get-buffer-process (current-buffer)) (concat string "\n")) |
1328 ) |
1329 ) |
1329 (eval-after-load 'compile |
1330 (eval-after-load 'compile |
1330 '(progn |
1331 '(progn |
1331 (define-key compilation-mode-map [C-return] 'my-comint-send-string) |
1332 (define-key compilation-mode-map [C-return] 'my-comint-send-string) |
1332 )) |
1333 )) |