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

[bpt/emacs.git] / lisp / simple.el

diff --git a/lisp/simple.el b/lisp/simple.el
index ceddfc6..ff32d20 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)