From 87434e7a58dff62fb24c0fa123cd6f00b5569afd Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 10 Oct 2002 13:10:53 +0000 Subject: [PATCH] (customize-mode): New command. --- lisp/cus-edit.el | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) 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 @@ -841,6 +841,27 @@ are shown; the contents of those subgroups are initially hidden." (interactive) (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." -- 2.39.2