custom function to highlight keywords

custom function to highlight keywords

[trex_eater]

Time to time I have to look at huge log files for certain key words.
So, I wrote a small lisp function to highlight the keywords. I figured
some of the syntax from looking at few lisp codes.

The function high-on1 works fine. The function high-on2 does not work.
Can some one point out what I am doing wrong. Thanks.


(defun high-on1 ()
	(setq my-keywords '(("\\(setq\\|font-lock\\|keywords\\)" 
        (0 my-new-face))))
	(setq font-lock-keywords (append font-lock-keywords my-keywords))
)

(defun high-on2 ( expname)
	(interactive "Bexpname: ")
	(setq my-temp (concat "\\(" expname "\\)" ))
        ;; Not sure about the line below...
	(setq my-keywords (my-temp (0 my-new-face)))  
	(setq font-lock-keywords (append font-lock-keywords my-keywords))
)

Re: custom function to highlight keywords

[foomaster1200]

ckugmk@yahoo.com (trex_eater) writes:

> 
> (defun high-on2 ( expname)
> 	(interactive "Bexpname: ")
> 	(setq my-temp (concat "\\(" expname "\\)" ))
>         ;; Not sure about the line below...
> 	(setq my-keywords (my-temp (0 my-new-face)))  
> 	(setq font-lock-keywords (append font-lock-keywords my-keywords))

I might be wrong... but:

> 	(setq my-keywords (my-temp (0 my-new-face)))  

is probably not what you want. You're calling a function "my-temp"
and calling a function "0" within that. You probably get a wrong
function error?

Re: custom function to highlight keywords

[trex_eater]

foomaster1200 <foomaster1200@yahoo.com> wrote in message news:<87znnq4cih.fsf@killr.ath.cx>...
> ckugmk@yahoo.com (trex_eater) writes:
> 
> > 
> > (defun high-on2 ( expname)
> > 	(interactive "Bexpname: ")
> > 	(setq my-temp (concat "\\(" expname "\\)" ))
> >         ;; Not sure about the line below...
> > 	(setq my-keywords (my-temp (0 my-new-face)))  
> > 	(setq font-lock-keywords (append font-lock-keywords my-keywords))
> 
> I might be wrong... but:
> 
> > 	(setq my-keywords (my-temp (0 my-new-face)))  
> 
> is probably not what you want. You're calling a function "my-temp"
> and calling a function "0" within that. You probably get a wrong
> function error?

Agreed. But what is the lisp syntax to specify that use the contents
of the variable my-temp while constructing the my-keywords in the
following line:

setq my-keywords (my-temp (0 my-new-face)))

Re: custom function to highlight keywords

[Kevin Rodgers]

trex_eater wrote:

> foomaster1200 <foomaster1200@yahoo.com> wrote in message news:<87znnq4cih.fsf@killr.ath.cx>...
> 
>>ckugmk@yahoo.com (trex_eater) writes:
>>
>>
>>>(defun high-on2 ( expname)
>>>	(interactive "Bexpname: ")
>>>	(setq my-temp (concat "\\(" expname "\\)" ))
>>>        ;; Not sure about the line below...
>>>	(setq my-keywords (my-temp (0 my-new-face)))  
>>>	(setq font-lock-keywords (append font-lock-keywords my-keywords))
>>>
>>I might be wrong... but:
>>
>>
>>>	(setq my-keywords (my-temp (0 my-new-face)))  
>>>
>>is probably not what you want. You're calling a function "my-temp"
>>and calling a function "0" within that. You probably get a wrong
>>function error?
>>
> 
> Agreed. But what is the lisp syntax to specify that use the contents
> of the variable my-temp while constructing the my-keywords in the
> following line:
> 
> setq my-keywords (my-temp (0 my-new-face)))

(setq my-keywords (list my-temp '(0 my-new-face)))

or

(setq my-keywords `(,my-temp (0 my-new-face)))

-- 
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;">Kevin Rodgers</a>