mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

(customize-mode): New command.

Browse Source
This commit is contained in:
Stefan Monnier 2002-10-10 13:10:53 +00:00
parent 29512a0f3f
commit 87434e7a58
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/cus-edit.el
View File

@ -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."