* lisp/help.el (describe-key): Only (copy-sequence elt) when elt is a list.

diff --git a/lisp/help.el b/lisp/help.el
index fa7f6b0d5b0fb1202a75c15e3b10371578541d96..8ff27b0b24cdc2eeaf5cb8aaecfc9da03d307e90 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -876,7 +876,7 @@ temporarily enables it to allow getting help on disabled items and buttons."
         (when (vectorp key)
           (let* ((last (1- (length key)))
                  (elt (aref key last))
-                 (elt-1 (copy-sequence elt))
+                 (elt-1 (if (listp elt) (copy-sequence elt) elt))
                  key-1 down-event-type)
             (when (and (listp elt-1)
                        (symbolp (car elt-1))