(require 'morlock)
(progn                              ;キーワードを追加したらC-M-xで反映
  ;; 新しいキーワード
  (setq morlock-op-font-lock-keywords
        `((,(format "(\\(%s\\)\\>"
                    ;; ここに追加する
                    (regexp-opt '("and" "or" "not")))
           1 'font-lock-keyword-face)))
  ;; define-*系キーワード
  (setq morlock-el-font-lock-keywords
        `((,(format "(\\(%s\\)\\>[ \t'\(]*\\(\\(?:\\sw\\|\\s_\\)+\\)?"
                    ;; ここに追加する
                    (regexp-opt '("define-button-type" "define-namespace")))
           (1 'font-lock-keyword-face)
           (2 'font-lock-variable-name-face nil t))))
  (setq morlock-font-lock-keywords
        (append morlock-el-font-lock-keywords
                morlock-op-font-lock-keywords
                morlock-cl-font-lock-keywords)))

;;; 新しいキーワードをemacs-lisp-modeで有効にする
(global-morlock-mode 1)