equal
deleted
inserted
replaced
1278 (when (boundp 'compilation-mode-font-lock-keywords) |
1278 (when (boundp 'compilation-mode-font-lock-keywords) |
1279 (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^[:blank:]]+\\)" . 1)) |
1279 (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^[:blank:]]+\\)" . 1)) |
1280 (add-to-list 'compilation-mode-font-lock-keywords '("[[:blank:]]\\(/F[oe][^[:blank:]]+\\)" . 1)) |
1280 (add-to-list 'compilation-mode-font-lock-keywords '("[[:blank:]]\\(/F[oe][^[:blank:]]+\\)" . 1)) |
1281 ) |
1281 ) |
1282 )) |
1282 )) |
|
1283 |
|
1284 (defvar my-comint-send-hist-list nil |
|
1285 "History list for `my-comint-send-string'." |
|
1286 ) |
|
1287 (defun my-comint-send-string (string) |
|
1288 "Send string to comint buffers. Useful for *compilation* read-only buffer." |
|
1289 (interactive |
|
1290 (list (read-input "Type string: " nil 'my-comint-send-hist-list)) |
|
1291 ) |
|
1292 (comint-send-string (get-buffer-process (current-buffer)) string) |
|
1293 ) |
|
1294 (define-key compilation-mode-map [C-return] 'my-comint-send-string) |
1283 |
1295 |
1284 ;;; ---------------------------------------------------------------- |
1296 ;;; ---------------------------------------------------------------- |
1285 (message "TAGS, etags, ctags, GNU GLOBAL") |
1297 (message "TAGS, etags, ctags, GNU GLOBAL") |
1286 |
1298 |
1287 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to |
1299 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to |