[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH 1/3] octave.el: Highlight error/warning messages in inferior mode
From: |
Rüdiger Sonderfeld |
Subject: |
[PATCH 1/3] octave.el: Highlight error/warning messages in inferior mode. |
Date: |
Wed, 02 Oct 2013 22:37:15 +0200 |
User-agent: |
KMail/4.10.5 (Linux/3.8.0-30-generic; KDE/4.10.5; x86_64; ; ) |
* lisp/progmodes/octave.el (inferior-octave-error-face): New face.
(inferior-octave-warning-face): New face.
(inferior-octave-font-lock-keywords): Highlight error/warning
messages.
Signed-off-by: Rüdiger Sonderfeld <address@hidden>
---
lisp/progmodes/octave.el | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el
index 51cee8b..b200327 100644
--- a/lisp/progmodes/octave.el
+++ b/lisp/progmodes/octave.el
@@ -653,9 +653,21 @@ (defvar inferior-octave-mode-syntax-table
table)
"Syntax table in use in `inferior-octave-mode' buffers.")
+(defface inferior-octave-error-face '((t :inherit error))
+ "Face to use for error messages."
+ :group 'octave
+ :version "24.4")
+
+(defface inferior-octave-warning-face '((t :inherit warning))
+ "Face to use for warning messages."
+ :group 'octave
+ :version "24.4")
+
(defvar inferior-octave-font-lock-keywords
(list
- (cons inferior-octave-prompt 'font-lock-type-face))
+ (cons inferior-octave-prompt 'font-lock-type-face)
+ '("^\\(?:parse \\)?error:" . 'inferior-octave-error-face)
+ '("^warning:" . 'inferior-octave-warning-face))
;; Could certainly do more font locking in inferior Octave ...
"Additional expressions to highlight in Inferior Octave mode.")
--
1.8.4
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [PATCH 1/3] octave.el: Highlight error/warning messages in inferior mode.,
Rüdiger Sonderfeld <=