[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#11299: 24.1.50; Make `customize-mode' work for minor modes too, or d
From: |
Drew Adams |
Subject: |
bug#11299: 24.1.50; Make `customize-mode' work for minor modes too, or define`customize-minor-mode' |
Date: |
Sat, 21 Apr 2012 10:50:08 -0700 |
E.g., something like this:
(defun customize-mode (mode)
"Customize options related to a major or minor mode.
By default the current major is used.
With a prefix argument or if the current major mode has no known group,
you are prompted for the MODE to customize."
(interactive
(list
(let ((completion-regexp-list '("-mode\\'"))
(group (custom-group-of-mode major-mode)))
(if (and group (not current-prefix-arg))
major-mode
(intern (completing-read
"Mode: " obarray 'custom-group-of-mode
t nil nil (and group (symbol-name major-mode))))))))
(customize-group (custom-group-of-mode mode)))