From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 24 May 1997 08:14:51 +0000 (+0000)
Subject: (libc-highlight-overlay): New variable.
X-Git-Tag: emacs-20.1~2009
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=63f125ee33b7f62a929416263d408a49a79f63c6;p=emacs.git

(libc-highlight-overlay): New variable.
(libc-search-index): Use an overlay for highlighting.
---

diff --git a/lisp/libc.el b/lisp/libc.el
index bbf5115d915..ed1fa394b9f 100644
--- a/lisp/libc.el
+++ b/lisp/libc.el
@@ -44,9 +44,12 @@
   "Basename of the Info file of the GNU C Library Reference Manual.")
 
 (defvar libc-highlight-face 'highlight
-  "*Face for highlighting looked up symbol names in the Info buffer;
+  "*Face for highlighting looked up symbol names in the Info buffer.
 `nil' disables highlighting.")
 
+(defvar libc-highlight-overlay nil
+  "Overlay object used for highlighting.")
+
 (defconst libc-symbol-completions nil
   "Alist of documented C symbols.")
 
@@ -232,9 +235,15 @@ not `nil'."
 		   ;; occurence of ITEM will be highlighted.
 		   (save-excursion
 		     (re-search-forward (regexp-quote item))
-		     (put-text-property
-		      (match-beginning 0) (match-end 0)
-		      'face libc-highlight-face)))
+		     (let ((start (match-beginning 0))
+			   (end (match-end 0)))
+		       (if (overlayp libc-highlight-overlay)
+			   (move-overlay libc-highlight-overlay
+					 start end (current-buffer))
+			 (setq libc-highlight-overlay
+			       (make-overlay start end))))
+		     (overlay-put libc-highlight-overlay
+				  'face libc-highlight-face)))
 	      (beginning-of-line)))
 	item)
     (error nil)))