diff options
author | Eli Zaretskii <eliz@gnu.org> | 2016-08-29 17:27:06 +0300 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2016-08-29 17:27:06 +0300 |
commit | 472ebd86277d26e6a7194e0e66fc171439fd8f44 (patch) | |
tree | b6c2a582887ec766d8fadffe99c0f38db812f7b8 /src | |
parent | 67a01490934ba5a43b68b7141b20bc8e636ed7c5 (diff) |
Avoid crashes for invalid value of key modifiers
* src/keyboard.c (parse_solitary_modifier): If the argument SYMBOL
is not a symbol, don't try to recognize it. See
http://lists.gnu.org/archive/html/emacs-devel/2016-08/msg00502.html
for the details.
* test/src/keymap-tests.el (keymap-where-is-internal-test): New
test, for testing the above fix.
Diffstat (limited to 'src')
-rw-r--r-- | src/keyboard.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index f27ca0f86e..e44155260f 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -6621,7 +6621,12 @@ has the same base event type and all the specified modifiers. */) int parse_solitary_modifier (Lisp_Object symbol) { - Lisp_Object name = SYMBOL_NAME (symbol); + Lisp_Object name; + + if (!SYMBOLP (symbol)) + return 0; + + name = SYMBOL_NAME (symbol); switch (SREF (name, 0)) { |