From: Nicolas Richard Date: Tue, 14 Jan 2014 22:30:42 +0000 (+0100) Subject: simple.el (define-alternatives): Add 'definition-name to COMMAND-alternatives X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~378 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dac696602de6984ff8e4ce9d6bac9d51ab735cde;p=emacs.git 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 7a14b857044..9255c5b82c1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2014-01-14 Nicolas Richard + + * 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 (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)