mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(libc-highlight-overlay): New variable.

Browse source 
(libc-search-index): Use an overlay for highlighting.
This commit is contained in:
Richard M. Stallman 1997-05-24 08:14:51 +00:00
parent 2c989468da
commit 63f125ee33
1 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/libc.el
View file

@ -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)))