equal
deleted
inserted
replaced
1302 (interactive |
1302 (interactive |
1303 (list (read-input "Type string: " nil 'my-comint-send-hist-list)) |
1303 (list (read-input "Type string: " nil 'my-comint-send-hist-list)) |
1304 ) |
1304 ) |
1305 (comint-send-string (get-buffer-process (current-buffer)) string) |
1305 (comint-send-string (get-buffer-process (current-buffer)) string) |
1306 ) |
1306 ) |
1307 (define-key compilation-mode-map [C-return] 'my-comint-send-string) |
1307 (eval-after-load 'compile |
|
1308 '(progn |
|
1309 (define-key compilation-mode-map [C-return] 'my-comint-send-string) |
|
1310 )) |
1308 |
1311 |
1309 ;;; ---------------------------------------------------------------- |
1312 ;;; ---------------------------------------------------------------- |
1310 (message "TAGS, etags, ctags, GNU GLOBAL") |
1313 (message "TAGS, etags, ctags, GNU GLOBAL") |
1311 |
1314 |
1312 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to |
1315 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to |