;;; m-c-b shell-backward-command Backward a shell command
;;; dirs Resync the buffer's dir stack
;;; dirtrack-toggle Turn dir tracking on/off
+;;; shell-strip-ctrl-m Remove trailing ^Ms from output
;;;
;;; The shell mode hook is shell-mode-hook
;;; comint-prompt-regexp is initialised to shell-prompt-pattern, for backwards
(defvar shell-font-lock-keywords
(list (cons shell-prompt-pattern 'font-lock-keyword-face)
'("[ \t]\\([+-][^ \t\n]+\\)" 1 font-lock-comment-face)
- '("^[^ \t]+:.*$" . font-lock-string-face)
+ '("^[^ \t\n]+:.*$" . font-lock-string-face)
'("^\\[[1-9][0-9]*\\]" . font-lock-string-face))
"Additional expressions to highlight in Shell mode.")
\f
(setq comint-dynamic-complete-functions shell-dynamic-complete-functions)
(make-local-variable 'paragraph-start)
(setq paragraph-start comint-prompt-regexp)
- (make-local-variable 'font-lock-keywords)
- (setq font-lock-keywords shell-font-lock-keywords)
+ (make-local-variable 'font-lock-defaults)
+ (setq font-lock-defaults '(shell-font-lock-keywords t))
(make-local-variable 'shell-dirstack)
(setq shell-dirstack nil)
(setq shell-last-dir nil)