minor modes survey

[thi]

i'd like to figure out what minor modes people use w/ other minor modes
in order to (help the GNU emacs developers) determine a useful policy
for keybindings.  if people could mail me privately w/ usage info, that
would be great.  please use the code below to help automate processing.
(eval the two functions, do `M-x compose-mode-usage-mail', add any
additional comments, and type `C-c C-c' to send.)

the expiration for this survey is 21-FEB-2001.  responses after that
date will be silently ignored.  i will publish aggregate info (only) to
this list.

thanks in advance for your participation!
thi


____________________________________________
(defun buffer-modes-usage (buffer)
  (with-current-buffer buffer
    (cons major-mode
          (let ((acc nil) (mma minor-mode-alist))
            (while mma                  ; avoid cl :-P
              (let ((minor-mode (caar mma)))
                ;; use `describe-mode' inclusion method -- see help.el
                (when (and (symbol-value minor-mode)
                           (fboundp minor-mode))
                  (setq acc (cons minor-mode acc))))
              (setq mma (cdr mma)))
            acc))))

(defun compose-mode-usage-mail ()
  (interactive)
  (let ((forms (mapcar 'buffer-modes-usage (buffer-list)))
        (mail-self-blind nil))
    (compose-mail "ttn@gnu.org" "minor mode survey response")
    (goto-char (point-max))
    (let ((standard-output (current-buffer)))
      (mapcar '(lambda (form)
                 (unless (= 1 (length form))    ; ignorance is bliss
                   (print form)))
              forms)))
  (insert "\n;;; additional comments (fill-prefix set to \""
          (setq fill-prefix ";;; ")
          "\")\n;;; "))