custom.lisp

   1 (in-package "LICE")
   2
   3 ;; FIXME: obviously this is incomplete
   4 (defmacro defcustom (symbol value doc &rest args)
   5   `(defvar ,symbol ,value ,doc))
   6
   7 ;; FIXME: empty
   8 (defmacro defgroup (name something docstring &rest stuff)
   9   )
  10
  11 ;; FIXME: empty
  12 (defmacro defface (name colors docstring group)
  13   )
  14
  15 ;; FIXME: this is incomplete
  16 (defmacro defcustom-buffer-local (symbol value doc &rest args)
  17   `(define-buffer-local ,symbol ,value ,doc))