diff options
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/help.el b/lisp/help.el index fa7f6b0d5b0..014af5141e3 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; help.el --- help commands for Emacs | 1 | ;;; help.el --- help commands for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985-1986, 1993-1994, 1998-2017 Free Software | 3 | ;; Copyright (C) 1985-1986, 1993-1994, 1998-2018 Free Software |
| 4 | ;; Foundation, Inc. | 4 | ;; Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: emacs-devel@gnu.org | 6 | ;; Maintainer: emacs-devel@gnu.org |
| @@ -876,7 +876,7 @@ temporarily enables it to allow getting help on disabled items and buttons." | |||
| 876 | (when (vectorp key) | 876 | (when (vectorp key) |
| 877 | (let* ((last (1- (length key))) | 877 | (let* ((last (1- (length key))) |
| 878 | (elt (aref key last)) | 878 | (elt (aref key last)) |
| 879 | (elt-1 (copy-sequence elt)) | 879 | (elt-1 (if (listp elt) (copy-sequence elt) elt)) |
| 880 | key-1 down-event-type) | 880 | key-1 down-event-type) |
| 881 | (when (and (listp elt-1) | 881 | (when (and (listp elt-1) |
| 882 | (symbolp (car elt-1)) | 882 | (symbolp (car elt-1)) |