X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-highlight.el;h=3c3536d607aa1d025f7ea8517fa7f02c85ae23b7;hp=466e3cbe6623eae233ccdbad80f4ea02c79dcdad;hb=269f1c1469d7dd171f643dc5097ae5c7cd008c02;hpb=0f85740dec975e05f89527adf5dc59ea80f54a0b

diff --git a/lisp/riece-highlight.el b/lisp/riece-highlight.el
index 466e3cb..3c3536d 100644
--- a/lisp/riece-highlight.el
+++ b/lisp/riece-highlight.el
@@ -162,22 +162,19 @@
 
 (defcustom riece-highlight-font-lock-keywords
   (append
-   (list
-    `(,(concat
-	"^\\(" riece-time-prefix-regexp "\\)?"
-	"\\(\\([][<>(-][][<>(-]?[^<>)]*[][<>)-][][<>)-]?\\)\\|"
-	"\\(=[^ ]*=\\|\\*\\*[^ \*]*\\*\\*\\)\\) ")
-      (3 riece-prefix-face append t)))
+   (list (list (concat "^" riece-time-prefix-regexp
+		       "\\(<[^>]+>\\|>[^<]+<\\|([^)]+)\\|{[^}]+}\\|=[^=]+=\\)")
+	       '(1 riece-prefix-face append t)))
    ;; set property to the whole line
    (mapcar
     (lambda (line)
       (cons
        (concat
-	"^\\(" riece-time-prefix-regexp "\\)?\\("
+	"^" riece-time-prefix-regexp "\\("
 	(regexp-quote
 	 (symbol-value (intern (format "riece-%s-prefix" line))))
 	".*\\)$")
-       (list 2 (intern (format "riece-%s-face" line)) t t)))
+       (list 1 (intern (format "riece-%s-face" line)) t t)))
     '(change notice wallops error info))
    (list (list "(from [^)]+)$" 0 riece-server-face t)))
   "Normal and deformed faces for IRC normal line."