"define-and-bind-command" , "font-lock-add-keywords",
(defun my-elisp-mode-keywords()
(font-lock-add-keywords nil
'(
("\\<\\(define-and-bind-command\\)" . 'font-lock-keyword-face)
)
)
)
, "font-lock-keyword-face" . , , () , , "-", .
Edit2: , , , defun , elisp, :
(add-hook 'emacs-lisp-mode-hook 'my-elisp-mode-keywords)
foo .
, , , , "define-and-bind-command", .
:, "define-and-bind-command", foo , . , , ?
Edit3: , stackoverflow ...
Edit4: , , , , , . foo , ( , ), , a-zA-z0-9 "-", . , foo,
("\\bdefine-and-bind-command\s\\([^\s]*\\)" 1 'font-lock-function-name-face t)
font-lock , . "define-and-bind-command", ( \b), , ( ) , , ,
, !