Mercurial > emacs
comparison lisp/shell.el @ 9383:c4fa081b416e
(shell-font-lock-keywords): New variable.
(shell-mode): Set font-lock-keywords locally.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 07 Oct 1994 10:04:06 +0000 |
parents | 853d760cba83 |
children | 2685c7803c18 |
comparison
equal
deleted
inserted
replaced
9382:ac2649a20967 | 9383:c4fa081b416e |
---|---|
269 'complete-expand))) | 269 'complete-expand))) |
270 | 270 |
271 (defvar shell-mode-hook '() | 271 (defvar shell-mode-hook '() |
272 "*Hook for customising Shell mode.") | 272 "*Hook for customising Shell mode.") |
273 | 273 |
274 (defvar shell-font-lock-keywords | |
275 (list (cons shell-prompt-pattern 'font-lock-keyword-face) | |
276 '("[ \t]\\([+-][^ \t\n]+\\)" 1 font-lock-comment-face) | |
277 '("^[^ \t]+:.*$" . font-lock-string-face) | |
278 '("^\\[[1-9][0-9]*\\]" . font-lock-string-face)) | |
279 "Additional expressions to highlight in Shell mode.") | |
274 | 280 |
275 ;;; Basic Procedures | 281 ;;; Basic Procedures |
276 ;;; =========================================================================== | 282 ;;; =========================================================================== |
277 ;;; | 283 ;;; |
278 | 284 |
329 (setq comint-completion-fignore shell-completion-fignore) | 335 (setq comint-completion-fignore shell-completion-fignore) |
330 (setq comint-delimiter-argument-list shell-delimiter-argument-list) | 336 (setq comint-delimiter-argument-list shell-delimiter-argument-list) |
331 (setq comint-dynamic-complete-functions shell-dynamic-complete-functions) | 337 (setq comint-dynamic-complete-functions shell-dynamic-complete-functions) |
332 (make-local-variable 'paragraph-start) | 338 (make-local-variable 'paragraph-start) |
333 (setq paragraph-start comint-prompt-regexp) | 339 (setq paragraph-start comint-prompt-regexp) |
340 (make-local-variable 'font-lock-keywords) | |
341 (setq font-lock-keywords shell-font-lock-keywords) | |
334 (make-local-variable 'shell-dirstack) | 342 (make-local-variable 'shell-dirstack) |
335 (setq shell-dirstack nil) | 343 (setq shell-dirstack nil) |
336 (setq shell-last-dir nil) | 344 (setq shell-last-dir nil) |
337 (make-local-variable 'shell-dirtrackp) | 345 (make-local-variable 'shell-dirtrackp) |
338 (setq shell-dirtrackp t) | 346 (setq shell-dirtrackp t) |