steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
misc/fuel/fuel-xref.el
View File

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