equal
deleted
inserted
replaced
1291 (when (boundp 'compilation-mode-font-lock-keywords) |
1291 (when (boundp 'compilation-mode-font-lock-keywords) |
1292 (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^[:blank:]]+\\)" . 1)) |
1292 (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^[:blank:]]+\\)" . 1)) |
1293 (add-to-list 'compilation-mode-font-lock-keywords '("[[:blank:]]\\(/F[oe][^[:blank:]]+\\)" . 1)) |
1293 (add-to-list 'compilation-mode-font-lock-keywords '("[[:blank:]]\\(/F[oe][^[:blank:]]+\\)" . 1)) |
1294 ) |
1294 ) |
1295 )) |
1295 )) |
|
1296 |
|
1297 (defvar my-comint-send-hist-list nil |
|
1298 "History list for `my-comint-send-string'." |
|
1299 ) |
|
1300 (defun my-comint-send-string (string) |
|
1301 "Send string to comint buffers. Useful for *compilation* read-only buffer." |
|
1302 (interactive |
|
1303 (list (read-input "Type string: " nil 'my-comint-send-hist-list)) |
|
1304 ) |
|
1305 (comint-send-string (get-buffer-process (current-buffer)) string) |
|
1306 ) |
|
1307 (define-key compilation-mode-map [C-return] 'my-comint-send-string) |
1296 |
1308 |
1297 ;;; ---------------------------------------------------------------- |
1309 ;;; ---------------------------------------------------------------- |
1298 (message "TAGS, etags, ctags, GNU GLOBAL") |
1310 (message "TAGS, etags, ctags, GNU GLOBAL") |
1299 |
1311 |
1300 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to |
1312 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to |