From b3845be172baa94682a52f220e3dc3b8d32ee7d7 Mon Sep 17 00:00:00 2001 From: Thomas Kleymann Date: Thu, 12 Dec 1996 11:43:03 +0000 Subject: support for highlighting Error messages in pbp-mode without using font-lock --- pbp.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/pbp.el b/pbp.el index 3f87d8b2..862be921 100644 --- a/pbp.el +++ b/pbp.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1996 LFCS Edinburgh & INRIA Sophia Antipolis ;; Author: Yves Bertot < Yves.Bertot@sophia.inria.fr> ;; Maintainer: LEGO Team -;; Time-stamp: <05 Dec 96 tms /home/tms/elisp/pbp.el> +;; Time-stamp: <12 Dec 96 tms /home/tms/elisp/pbp.el> ;; Reference: Yves Bertot and Laurent Théry ;; A Generic Approach to Building User Interfaces for ;; Theorem Provers @@ -177,7 +177,10 @@ (if (re-search-backward proof-error-regexp nil t) (delete-region (- (point) 2) (point-max))) (newline 2) - (insert-string string))) + (let ((start (point))) + (insert-string string) + (put-nonduplicable-text-property start (point-max) + 'face font-lock-error-face)))) (defun pbp-send-and-remember (string) (save-excursion -- cgit v1.2.3