diff options
| author | Noam Postavsky | 2016-06-25 13:12:11 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2016-06-25 13:12:11 -0400 |
| commit | f2536958ec711b50a0cf8714defb921193ea8ae4 (patch) | |
| tree | f576342fb42a489bd1683669e3ae01bf59fe12ef | |
| parent | 4395aaacd4195d3a5cca9df66cfea13380414a37 (diff) | |
| download | emacs-f2536958ec711b50a0cf8714defb921193ea8ae4.tar.gz emacs-f2536958ec711b50a0cf8714defb921193ea8ae4.zip | |
Update docs for `customize-mode'
* lisp/cus-edit.el (customize-mode): This function works with both major
and minor modes, make docstring and prompt reflect that (Bug #23649).
* doc/lispref/modes.texi (Derived Modes): Remove note about
customize-mode being experimental; it has been around since Emacs
22 (Bug #11299).
Co-authored-by: Drew Adams <drew.adams@oracle.com>
| -rw-r--r-- | doc/lispref/modes.texi | 7 | ||||
| -rw-r--r-- | lisp/cus-edit.el | 11 |
2 files changed, 9 insertions, 9 deletions
diff --git a/doc/lispref/modes.texi b/doc/lispref/modes.texi index 4c96e63bd7b..32baa27147b 100644 --- a/doc/lispref/modes.texi +++ b/doc/lispref/modes.texi | |||
| @@ -794,10 +794,9 @@ if @var{parent} is @code{nil}. (Again, a @code{nil} value is | |||
| 794 | 794 | ||
| 795 | @item :group | 795 | @item :group |
| 796 | If this is specified, the value should be the customization group for | 796 | If this is specified, the value should be the customization group for |
| 797 | this mode. (Not all major modes have one.) Only the (still | 797 | this mode. (Not all major modes have one.) The command |
| 798 | experimental and unadvertised) command @code{customize-mode} currently | 798 | @code{customize-mode} uses this. @code{define-derived-mode} does |
| 799 | uses this. @code{define-derived-mode} does @emph{not} automatically | 799 | @emph{not} automatically define the specified customization group. |
| 800 | define the specified customization group. | ||
| 801 | @end table | 800 | @end table |
| 802 | 801 | ||
| 803 | Here is a hypothetical example: | 802 | Here is a hypothetical example: |
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index d7db3530099..7826506cc46 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -1072,9 +1072,10 @@ are shown; the contents of those subgroups are initially hidden." | |||
| 1072 | 1072 | ||
| 1073 | ;;;###autoload | 1073 | ;;;###autoload |
| 1074 | (defun customize-mode (mode) | 1074 | (defun customize-mode (mode) |
| 1075 | "Customize options related to the current major mode. | 1075 | "Customize options related to a major or minor mode. |
| 1076 | If a prefix \\[universal-argument] was given (or if the current major mode has no known group), | 1076 | By default the current major mode is used. With a prefix |
| 1077 | then prompt for the MODE to customize." | 1077 | argument or if the current major mode has no known group, prompt |
| 1078 | for the MODE to customize." | ||
| 1078 | (interactive | 1079 | (interactive |
| 1079 | (list | 1080 | (list |
| 1080 | (let ((completion-regexp-list '("-mode\\'")) | 1081 | (let ((completion-regexp-list '("-mode\\'")) |
| @@ -1083,8 +1084,8 @@ then prompt for the MODE to customize." | |||
| 1083 | major-mode | 1084 | major-mode |
| 1084 | (intern | 1085 | (intern |
| 1085 | (completing-read (if group | 1086 | (completing-read (if group |
| 1086 | (format "Major mode (default %s): " major-mode) | 1087 | (format "Mode (default %s): " major-mode) |
| 1087 | "Major mode: ") | 1088 | "Mode: ") |
| 1088 | obarray | 1089 | obarray |
| 1089 | 'custom-group-of-mode | 1090 | 'custom-group-of-mode |
| 1090 | t nil nil (if group (symbol-name major-mode)))))))) | 1091 | t nil nil (if group (symbol-name major-mode)))))))) |