From: Alan Mackenzie <acm@muc.de>
Date: Fri, 29 Dec 2017 09:54:03 +0000 (+0000)
Subject: * lisp/help.el (describe-key): Only (copy-sequence elt) when elt is a list.
X-Git-Tag: emacs-26.0.91~60
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b240c7846b;p=emacs.git

* 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 fa7f6b0d5b0..8ff27b0b24c 100644
--- 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))