Give generated appliers and removers docstrings

buffer-layers.el

@@ -44,6 +44,7 @@
        (add-to-list '*buffer-layers* ',name)
        (defvar ,buffers-list nil)
        (defun ,applier ()
+         ,(format "Apply buffer-layer %s." name)
          (interactive)
          (mapcar #'(lambda (file)
                      (add-to-list ',buffers-list (find-file file)))
@@ -54,6 +55,7 @@
          (add-to-list '*buffer-layers-applied* ',name)
          (message "Applied Buffer Layer %s" ',name))
        (defun ,remover ()
+         ,(format "Remove buffer-layer %s." name)
          (interactive)
          (mapc #'(lambda (buffer)
                    (when (buffer-live-p buffer)