/[emacs]/emacs/src/keymap.c
ViewVC logotype

Diff of /emacs/src/keymap.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.282.4.3 by handa, Mon Nov 17 01:06:37 2003 UTC revision 1.282.4.4 by handa, Sat Nov 22 11:04:01 2003 UTC
# Line 826  store_in_keymap (keymap, idx, def) Line 826  store_in_keymap (keymap, idx, def)
826    if (!CONSP (keymap) || !EQ (XCAR (keymap), Qkeymap))    if (!CONSP (keymap) || !EQ (XCAR (keymap), Qkeymap))
827      error ("attempt to define a key in a non-keymap");      error ("attempt to define a key in a non-keymap");
828    
829    /* If idx is a list (some sort of mouse click, perhaps?),    /* If idx is a cons, and the car part is a character, idx must be of
830       the index we want to use is the car of the list, which       the form (FROM-CHAR . TO-CHAR).  */
831       ought to be a symbol.  */    if (CONSP (idx) && CHARACTERP (XCAR (idx)))
832    idx = EVENT_HEAD (idx);      CHECK_CHARACTER_CDR (idx);
833      else
834        /* If idx is a list (some sort of mouse click, perhaps?),
835           the index we want to use is the car of the list, which
836           ought to be a symbol.  */
837        idx = EVENT_HEAD (idx);
838    
839    /* If idx is a symbol, it might have modifiers, which need to    /* If idx is a symbol, it might have modifiers, which need to
840       be put in the canonical order.  */       be put in the canonical order.  */

Legend:
Removed from v.1.282.4.3  
changed lines
  Added in v.1.282.4.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26