diff options
| author | Juanma Barranquero | 2013-07-06 15:31:59 +0200 |
|---|---|---|
| committer | Juanma Barranquero | 2013-07-06 15:31:59 +0200 |
| commit | 11e03d8900001e858fdecbe557469245de03e7fa (patch) | |
| tree | fbc7c0b72355c9d065660ec2c92edc7997f347f7 | |
| parent | fa7f427c322d256409104e808036ed21159cc27a (diff) | |
| download | emacs-11e03d8900001e858fdecbe557469245de03e7fa.tar.gz emacs-11e03d8900001e858fdecbe557469245de03e7fa.zip | |
lisp/simple.el (alternatives-define): Remove leftover :group keyword.
Tweak docstring.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/simple.el | 3 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cd7859a940a..49fc7449a35 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2013-07-06 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * simple.el (alternatives-define): Remove leftover :group keyword. | ||
| 4 | Tweak docstring. | ||
| 5 | |||
| 1 | 2013-07-06 Leo Liu <sdl.web@gmail.com> | 6 | 2013-07-06 Leo Liu <sdl.web@gmail.com> |
| 2 | 7 | ||
| 3 | * ido.el (ido-use-virtual-buffers): Allow new value 'auto. | 8 | * ido.el (ido-use-virtual-buffers): Allow new value 'auto. |
diff --git a/lisp/simple.el b/lisp/simple.el index 9e83a224f5d..c4c7d56dc2a 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -7368,7 +7368,7 @@ implementations of COMMAND, so that running `C-u M-x COMMAND' | |||
| 7368 | will allow the user to chose among them. | 7368 | will allow the user to chose among them. |
| 7369 | CUSTOMIZATIONS, if non-nil, should be composed of alternating | 7369 | CUSTOMIZATIONS, if non-nil, should be composed of alternating |
| 7370 | `defcustom' keywords and values to add to the declaration of | 7370 | `defcustom' keywords and values to add to the declaration of |
| 7371 | `COMMAND-alternatives' (typically to add new groups)." | 7371 | `COMMAND-alternatives' (typically :group and :version)." |
| 7372 | (let* ((command-name (symbol-name command)) | 7372 | (let* ((command-name (symbol-name command)) |
| 7373 | (varalt-name (concat command-name "-alternatives")) | 7373 | (varalt-name (concat command-name "-alternatives")) |
| 7374 | (varalt-sym (intern varalt-name)) | 7374 | (varalt-sym (intern varalt-name)) |
| @@ -7383,7 +7383,6 @@ ALTNAME - The name shown at user to describe the alternative implementation. | |||
| 7383 | ALTFUN - The function called to implement this alternative." | 7383 | ALTFUN - The function called to implement this alternative." |
| 7384 | command-name) | 7384 | command-name) |
| 7385 | :type '(alist :key-type string :value-type function) | 7385 | :type '(alist :key-type string :value-type function) |
| 7386 | :group 'dispatcher | ||
| 7387 | ,@customizations) | 7386 | ,@customizations) |
| 7388 | 7387 | ||
| 7389 | (defvar ,varimp-sym nil "Internal use only.") | 7388 | (defvar ,varimp-sym nil "Internal use only.") |