emacs: src/keymap.c comparison

comparison src/keymap.c @ 45222:c525c7445e1b

(Vemulation_mode_map_alists): New variable. (syms_of_keymap): DEFVAR_LISP it. (current_minor_maps): Process keymap alists in that list before minor-mode-overriding-map-alist and minor-mode-map-alist.

author	Kim F. Storm <storm@cua.dk>
date	Fri, 10 May 2002 07:03:20 +0000
parents	20832766c3e1
children	66271fa0bf60

comparison

equal deleted inserted replaced

-:c57fc4d56186
+:c525c7445e1b
 Lisp_Object Vminor_mode_map_alist;
 /* Alist of major-mode-specific overrides for
 minor mode variables and keymaps.  */
 Lisp_Object Vminor_mode_overriding_map_alist;
+/* List of emulation mode keymap alists.  */
+Lisp_Object Vemulation_mode_map_alists;
 /* Keymap mapping ASCII function key sequences onto their preferred forms.
 Initialized by the terminal-specific lisp files.  See DEFVAR for more
 documentation.  */
 Lisp_Object Vfunction_key_map;
 Lisp_Object **modeptr, **mapptr;
 {
 int i = 0;
 int list_number = 0;
 Lisp_Object alist, assoc, var, val;
+Lisp_Object emulation_alists;
 Lisp_Object lists[2];
+emulation_alists = Vemulation_mode_map_alists;
 lists[0] = Vminor_mode_overriding_map_alist;
 lists[1] = Vminor_mode_map_alist;
 for (list_number = 0; list_number < 2; list_number++)
-for (alist = lists[list_number];
+{
-	 CONSP (alist);
+if (CONSP (emulation_alists))
-	 alist = XCDR (alist))
+	{
-if ((assoc = XCAR (alist), CONSP (assoc))
+	  alist = XCAR (emulation_alists);
-	  && (var = XCAR (assoc), SYMBOLP (var))
+	  emulation_alists = XCDR (emulation_alists);
-	  && (val = find_symbol_value (var), !EQ (val, Qunbound))
+	  if (SYMBOLP (alist))
-	  && !NILP (val))
+	    alist = find_symbol_value (alist);
-	{
+	  list_number = -1;
-	  Lisp_Object temp;
+	}
+else
-	  /* If a variable has an entry in Vminor_mode_overriding_map_alist,
+	alist = lists[list_number];
-	     and also an entry in Vminor_mode_map_alist,
-	     ignore the latter.  */
+for ( ; CONSP (alist); alist = XCDR (alist))
-	  if (list_number == 1)
+	if ((assoc = XCAR (alist), CONSP (assoc))
-	    {
+	    && (var = XCAR (assoc), SYMBOLP (var))
-	      val = assq_no_quit (var, lists[0]);
+	    && (val = find_symbol_value (var), !EQ (val, Qunbound))
-	      if (!NILP (val))
+	    && !NILP (val))
-		continue;
+	  {
-	    }
+	    Lisp_Object temp;
-	  if (i >= cmm_size)
+	    /* If a variable has an entry in Vminor_mode_overriding_map_alist,
-	    {
+	       and also an entry in Vminor_mode_map_alist,
-	      Lisp_Object *newmodes, *newmaps;
+	       ignore the latter.  */
+	    if (list_number == 1)
-	      /* Use malloc/realloc here.  See the comment above
+	      {
-		 this function.  */
+		val = assq_no_quit (var, lists[0]);
-	      if (cmm_maps)
+		if (!NILP (val))
-		{
+		  continue;
-		  BLOCK_INPUT;
+	      }
-		  cmm_size *= 2;
-		  newmodes
+	    if (i >= cmm_size)
-		    = (Lisp_Object *) realloc (cmm_modes,
+	      {
-						cmm_size * sizeof *newmodes);
+		Lisp_Object *newmodes, *newmaps;
-		  newmaps
-		    = (Lisp_Object *) realloc (cmm_maps,
+		/* Use malloc/realloc here.  See the comment above
-						cmm_size * sizeof *newmaps);
+		   this function.  */
-		  UNBLOCK_INPUT;
+		if (cmm_maps)
-		}
+		  {
-	      else
+		    BLOCK_INPUT;
-		{
+		    cmm_size *= 2;
-		  BLOCK_INPUT;
+		    newmodes
-		  cmm_size = 30;
+		      = (Lisp_Object *) realloc (cmm_modes,
-		  newmodes
+						 cmm_size * sizeof *newmodes);
-		    = (Lisp_Object *) malloc (cmm_size * sizeof *newmodes);
+		    newmaps
-		  newmaps
+		      = (Lisp_Object *) realloc (cmm_maps,
-		    = (Lisp_Object *) malloc (cmm_size * sizeof *newmaps);
+						 cmm_size * sizeof *newmaps);
-		  UNBLOCK_INPUT;
+		    UNBLOCK_INPUT;
-		}
+		  }
+		else
-	      if (newmodes)
+		  {
-		cmm_modes = newmodes;
+		    BLOCK_INPUT;
-	      if (newmaps)
+		    cmm_size = 30;
-		cmm_maps = newmaps;
+		    newmodes
+		      = (Lisp_Object *) malloc (cmm_size * sizeof *newmodes);
+		    newmaps
+		      = (Lisp_Object *) malloc (cmm_size * sizeof *newmaps);
+		    UNBLOCK_INPUT;
+		  }
+		if (newmodes)
+		  cmm_modes = newmodes;
+		if (newmaps)
+		  cmm_maps = newmaps;
-	      if (newmodes == NULL || newmaps == NULL)
+		if (newmodes == NULL || newmaps == NULL)
-		break;
+		  break;
-	    }
+	      }
-	  /* Get the keymap definition--or nil if it is not defined.  */
+	    /* Get the keymap definition--or nil if it is not defined.  */
-	  temp = internal_condition_case_1 (Findirect_function,
+	    temp = internal_condition_case_1 (Findirect_function,
-					    XCDR (assoc),
+					      XCDR (assoc),
-					    Qerror, current_minor_maps_error);
+					      Qerror, current_minor_maps_error);
-	  if (!NILP (temp))
+	    if (!NILP (temp))
-	    {
+	      {
-	      cmm_modes[i] = var;
+		cmm_modes[i] = var;
-	      cmm_maps [i] = temp;
+		cmm_maps [i] = temp;
-	      i++;
+		i++;
-	    }
+	      }
-	}
+	  }
+}
 if (modeptr) *modeptr = cmm_modes;
 if (mapptr)  *mapptr  = cmm_maps;
 return i;
 }
 	       doc: /* Alist of keymaps to use for minor modes, in current major mode.
 This variable is a alist just like `minor-mode-map-alist', and it is
 used the same way (and before `minor-mode-map-alist'); however,
 it is provided for major modes to bind locally.  */);
 Vminor_mode_overriding_map_alist = Qnil;
+DEFVAR_LISP ("emulation-mode-map-alists", &Vemulation_mode_map_alists,
+	       doc: /* List of keymap alists to use for emulations modes.
+It is intended for modes or packages using multiple minor-mode keymaps.
+Each element is a keymap alist just like `minor-mode-map-alist', or a
+symbol with a variable binding which is a keymap alist, and it is used
+the same way.  The "active" keymaps in each alist are used before
+`minor-mode-map-alist' and `minor-mode-overriding-map-alist'.  */);
+Vemulation_mode_map_alists = Qnil;
 DEFVAR_LISP ("function-key-map", &Vfunction_key_map,
 	       doc: /* Keymap mapping ASCII function key sequences onto their preferred forms.
 This allows Emacs to recognize function keys sent from ASCII
 terminals at any point in a key sequence.

Mercurial > emacs

comparison src/keymap.c @ 45222:c525c7445e1b