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

2 files changed, 7 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7a14b857044..9255c5b82c1 100644
--- 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 ceddfc6421a..ff32d204d17 100644
--- 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)