From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 13 Nov 2007 15:09:34 +0000 (+0000)
Subject: (Fw32_register_hot_key): Don't try to register
X-Git-Tag: emacs-pretest-23.0.90~9765
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb053a1f93201ace1251db95e33d4d4901d4db22;p=emacs.git

(Fw32_register_hot_key): Don't try to register
hot key if w32_parse_hot_key returned nil.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 4cf00fc3c30..b8a8445155e 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-13  Juanma Barranquero  <lekktu@gmail.com>
+
+	* w32fns.c (Fw32_register_hot_key): Don't try to register hot key
+	if w32_parse_hot_key returned nil.
+
 2007-11-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* xdisp.c (load_overlay_strings): Fix copy&paste typo.
@@ -107,7 +112,7 @@
 2007-11-01  Johan Bockg,Ae(Brd  <bojohan@gnu.org>
 
 	* macterm.c, w32term.c, xterm.c (x_draw_stretch_glyph_string):
-        Don't set s->stippled_p here, since it has already been set by
+	Don't set s->stippled_p here, since it has already been set by
 	x_set_glyph_string_gc from x_draw_glyph_string.
 
 2007-11-01  Dan Nicolaescu  <dann@ics.uci.edu>
diff --git a/src/w32fns.c b/src/w32fns.c
index 6199b16bb2f..c8daa646720 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -8263,7 +8263,7 @@ The return value is the hotkey-id if registered, otherwise nil.  */)
 {
   key = w32_parse_hot_key (key);
 
-  if (NILP (Fmemq (key, w32_grabbed_keys)))
+  if (!NILP (key) && NILP (Fmemq (key, w32_grabbed_keys)))
     {
       /* Reuse an empty slot if possible.  */
       Lisp_Object item = Fmemq (Qnil, w32_grabbed_keys);