#xyzzy 0.2.2.236で実装したCSS3キーワードをcss+-modeで使う

css+3.lisp

(defun css+-set-local-variable ()
  "css+-modeのlocal-variable設定"
  (setf mode-name (format nil "CSS+~A" ed::*css-level*))
  (setf ed::*css+-completion-list (ed::css-completion-list))
  (and (ed::css-keyword-file)
       (null (ed::css-keyword-hash-table))
       (setf (ed::css-keyword-hash-table)
             (load-keyword-file (ed::css-keyword-file) t)))
  (when (ed::css-keyword-hash-table)
    (make-local-variable 'keyword-hash-table)
    (setf keyword-hash-table (ed::css-keyword-hash-table))))
(add-hook '*css+-mode-hook* 'css+-set-local-variable)

(defun css+2-mode ()
  (interactive)
  (setf ed::*css-level* 2)
  (css+-mode))

(defun css+3-mode ()
  (interactive)
  (setf ed::*css-level* 3)
  (css+-mode))

おもっきり css-mode のシンボルを流用しまくってるが(・ε・)ｷﾆｼﾅｲ!!