simple.el (define-alternatives): Add 'definition-name to COMMAND-alternatives

* simple.el (define-alternatives): When creating the
COMMAND-alternatives variable, assign COMMAND as its definition
name so that `describe-variable' can relocate it.

See http://lists.gnu.org/archive/html/emacs-devel/2014-01/msg01340.html

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7a14b85704494f72077f82193ff0f3d1a9c77a3e..9255c5b82c106dd534bf97ccd4c9a2927178d3d2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-01-14  Nicolas Richard  <theonewiththeevillook@yahoo.fr>
+
+       * simple.el (define-alternatives): When creating the
+       COMMAND-alternatives variable, assign COMMAND as its definition
+       name so that `describe-variable' can relocate it.
+
 2014-01-14  Matthew Leach  <matthew@mattleach.net>  (tiny change)
 
        * font-lock.el (font-lock-keywords): Fix typo in docstring

diff --git a/lisp/simple.el b/lisp/simple.el
index ceddfc6421a34b1df76caef866aeeadf3021074e..ff32d204d170e8e96e988359853a97b1ce32940d 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -7688,6 +7688,7 @@ ALTFUN  - The function called to implement this alternative."
          :type '(alist :key-type string :value-type function)
          ,@customizations)
 
+       (put ',varalt-sym 'definition-name ',command)
        (defvar ,varimp-sym nil "Internal use only.")
 
        (defun ,command (&optional arg)