(customize-mode): New command.

1 files changed, 21 insertions, 0 deletions

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 58fd8b16ba9..366061a7e59 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -842,6 +842,27 @@ are shown; the contents of those subgroups are initially hidden."
   (customize-group 'emacs))
 
 ;;;###autoload
+(defun customize-mode (mode)
+  "Customize options related to the current major mode.
+If a prefix \\[universal-argument] was given (or if the current major mode has no known group),
+then prompt 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 (if group
+			      (format "Major mode (default %s): " major-mode)
+			    "Major mode: ")
+			  obarray
+			  'custom-group-of-mode
+			  t nil nil (if group (symbol-name major-mode))))))))
+  (customize-group (custom-group-of-mode mode)))
+
+
+;;;###autoload
 (defun customize-group (group)
   "Customize GROUP, which must be a customization group."
   (interactive (list (let ((completion-ignore-case t))