projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed.
[riece]
/
lisp
/
riece-highlight.el
diff --git
a/lisp/riece-highlight.el
b/lisp/riece-highlight.el
index
4aebc5f
..
6b3dbb5
100644
(file)
--- a/
lisp/riece-highlight.el
+++ b/
lisp/riece-highlight.el
@@
-150,7
+150,7
@@
".*\\)$")
(list 1 (intern (format "riece-dialogue-%s-face" line)) t t)))
'(change notice wallops error info))
".*\\)$")
(list 1 (intern (format "riece-dialogue-%s-face" line)) t t)))
'(change notice wallops error info))
-
(list (list "(from [^)]+)$"
0 riece-dialogue-server-face t)))
+
'((riece-highlight-server-match
0 riece-dialogue-server-face t)))
"Default expressions to highlight in riece-dialogue-mode."
:type '(repeat (list string))
:group 'riece-highlight)
"Default expressions to highlight in riece-dialogue-mode."
:type '(repeat (list string))
:group 'riece-highlight)
@@
-202,6
+202,10
@@
(defconst riece-highlight-description
"Highlight IRC buffers")
(defconst riece-highlight-description
"Highlight IRC buffers")
+(defun riece-highlight-server-match (limit)
+ (and (re-search-forward "(from [^)]+)$" limit t)
+ (get-text-property (match-beginning 0) 'riece-server-name)))
+
(defun riece-highlight-setup-dialogue ()
(make-local-variable 'font-lock-defaults)
(setq font-lock-defaults '(riece-dialogue-font-lock-keywords t))
(defun riece-highlight-setup-dialogue ()
(make-local-variable 'font-lock-defaults)
(setq font-lock-defaults '(riece-dialogue-font-lock-keywords t))