# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1034255453 0
# Node ID 4649d9cb92dd369e2e670c1bbb33accf95b930f0
# Parent  46f8bf0fc7b485e7d4f00c5ae508fb0d39a16399
(customize-mode): New command.

diff -r 46f8bf0fc7b4 -r 4649d9cb92dd lisp/cus-edit.el
--- a/lisp/cus-edit.el	Thu Oct 10 13:09:13 2002 +0000
+++ b/lisp/cus-edit.el	Thu Oct 10 13:10:53 2002 +0000
@@ -842,6 +842,27 @@
   (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))