+(defun lurk-highlight-context (context)
+ (with-current-buffer "*lurk*"
+ (let* ((pos lurk-prompt-marker)
+ (nextpos (previous-single-property-change pos 'context))
+ (inhibit-read-only t))
+ (while (> pos nextpos)
+ (let ((thiscontext (get-text-property nextpos 'context)))
+ (if thiscontext
+ (if (equal context thiscontext)
+ (add-text-properties nextpos pos
+ '(face (foreground-color . "green")))
+ (add-text-properties nextpos pos
+ '(face (foreground-color . "blue"))))
+ (add-text-properties nextpos pos
+ '(face lurk-text)))
+ thiscontext
+ (setq pos nextpos)
+ (setq nextpos (previous-single-property-change pos 'context nil 1)))))))
+