FUEL: Fontify looked up word in xref buffers.

db4
Jose A. Ortega Ruiz 2008-12-21 19:02:17 +01:00
parent 3721086424
commit 06273fddfd
1 changed files with 4 additions and 3 deletions

View File

@ -76,9 +76,10 @@ cursor at the first ocurrence of the used word."
(defun fuel-xref--title (word cc count)
(let ((cc (if cc "using" "used by")))
(cond ((zerop count) (format "No known words %s '%s'" cc word))
((= 1 count) (format "1 word %s '%s':" cc word))
(t (format "%s words %s '%s':" count cc word)))))
(put-text-property 0 (length word) 'font-lock-face 'bold word)
(cond ((zerop count) (format "No known words %s %s" cc word))
((= 1 count) (format "1 word %s %s:" cc word))
(t (format "%s words %s %s:" count cc word)))))
(defun fuel-xref--insert-ref (ref)
(when (and (stringp (first ref))