[Emacs-diffs] trunk r116028: simple.el (define-alternatives): Add 'definition-name to COMMAND-alternatives

[Bastien Guerry]

------------------------------------------------------------
revno: 116028
revision-id: address@hidden
parent: address@hidden
author: Nicolas Richard  <address@hidden>
committer: Bastien Guerry <address@hidden>
branch nick: trunk
timestamp: Tue 2014-01-14 23:30:42 +0100
message:
  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
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/simple.el                 simple.el-20091113204419-o5vbwnq5f7feedwu-403

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-01-14 20:37:28 +0000
+++ b/lisp/ChangeLog    2014-01-14 22:30:42 +0000
@@ -1,3 +1,9 @@
+2014-01-14  Nicolas Richard  <address@hidden>
+
+       * 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  <address@hidden>  (tiny change)
 
        * font-lock.el (font-lock-keywords): Fix typo in docstring

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2014-01-13 22:24:29 +0000
+++ b/lisp/simple.el    2014-01-14 22:30:42 +0000
@@ -7688,6 +7688,7 @@
          :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)