Macro used for dynamic setting of font-lock-keywords

[Sebastian Tennant <sebyte@smolny.plus.com>]

Hi all,

This works:

  (defun foo (word)
    (display-buffer (set-buffer (get-buffer-create "*bar*")))
    (insert (format "baz\n"))
    (unless (fboundp 'foo-dynamic-add-keyword) ;only define it once
      (defmacro foo-dynamic-add-keyword ()
        `(font-lock-add-keywords nil '((,word . font-lock-warning-face)) 'set)))
    (foo-dynamic-add-keyword) ;call the macro
    (font-lock-mode 1))

  (foo "baz")

in that the string argument to foo is added to the buffer's
font-lock-keywords and the string is highlighted wherever it occurs,
but it seems like something of a kludge to me.

Just out of interest really, is there a better way of passing the
value of a variable as an argument to the function
font-lock-add-keywords?

Sebastian