From dac696602de6984ff8e4ce9d6bac9d51ab735cde Mon Sep 17 00:00:00 2001 From: Nicolas Richard Date: Tue, 14 Jan 2014 23:30:42 +0100 Subject: [PATCH] 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 --- lisp/ChangeLog | 6 ++++++ lisp/simple.el | 1 + 2 files changed, 7 insertions(+) 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) -- 2.11.4.GIT