aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2013-07-06 15:31:59 +0200
committerJuanma Barranquero2013-07-06 15:31:59 +0200
commit11e03d8900001e858fdecbe557469245de03e7fa (patch)
treefbc7c0b72355c9d065660ec2c92edc7997f347f7
parentfa7f427c322d256409104e808036ed21159cc27a (diff)
downloademacs-11e03d8900001e858fdecbe557469245de03e7fa.tar.gz
emacs-11e03d8900001e858fdecbe557469245de03e7fa.zip
lisp/simple.el (alternatives-define): Remove leftover :group keyword.
Tweak docstring.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/simple.el3
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 @@
12013-07-06 Juanma Barranquero <lekktu@gmail.com>
2
3 * simple.el (alternatives-define): Remove leftover :group keyword.
4 Tweak docstring.
5
12013-07-06 Leo Liu <sdl.web@gmail.com> 62013-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'
7368will allow the user to chose among them. 7368will allow the user to chose among them.
7369CUSTOMIZATIONS, if non-nil, should be composed of alternating 7369CUSTOMIZATIONS, 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.
7383ALTFUN - The function called to implement this alternative." 7383ALTFUN - 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.")