   (add-to-list 'geiser-custom--memoized-vars name))
 
 (defmacro geiser-custom--defcustom (name &rest body)
+  (declare (doc-string 3) (debug (name body)))
   `(progn
      (geiser-custom--memoize ',name)
      (defcustom ,name ,@body)))



(provide 'geiser-custom)

  :group 'faces)

(defmacro geiser-custom--defface (face def group doc)
  (declare (doc-string 4))
  (let ((face (intern (format "geiser-font-lock-%s" face))))
    `(defface ,face (face-default-spec ,def)
       ,(format "Face for %s." doc)
