custom.lisp

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