mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Alan Mackenzie 2017-12-29 09:54:03 +00:00
parent e879a5444a
commit b240c7846b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/help.el
View File

@ -876,7 +876,7 @@ temporarily enables it to allow getting help on disabled items and buttons."
(when (vectorp key) (when (vectorp key)
(let* ((last (1- (length key))) (let* ((last (1- (length key)))
(elt (aref key last)) (elt (aref key last))
(elt-1 (copy-sequence elt)) (elt-1 (if (listp elt) (copy-sequence elt) elt))
key-1 down-event-type) key-1 down-event-type)
(when (and (listp elt-1) (when (and (listp elt-1)
(symbolp (car elt-1)) (symbolp (car elt-1))