/[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.302 by rms, Tue Feb 15 06:39:18 2005 UTC revision 1.303 by rms, Sun Apr 10 01:43:18 2005 UTC
# Line 764  usage: (map-keymap FUNCTION KEYMAP)  */) Line 764  usage: (map-keymap FUNCTION KEYMAP)  */)
764     remove that.  Also remove a menu help string as second element.     remove that.  Also remove a menu help string as second element.
765    
766     If AUTOLOAD is nonzero, load autoloadable keymaps     If AUTOLOAD is nonzero, load autoloadable keymaps
767     that are referred to with indirection.  */     that are referred to with indirection.
768    
769       This can GC because menu_item_eval_property calls Feval.  */
770    
771  Lisp_Object  Lisp_Object
772  get_keyelt (object, autoload)  get_keyelt (object, autoload)
# Line 2554  where_is_internal (definition, keymaps, Line 2556  where_is_internal (definition, keymaps,
2556                  continue;                  continue;
2557    
2558              record_sequence:              record_sequence:
2559                  /* Don't annoy user with strings from a menu such as
2560                     Select Paste.  Change them all to "(any string)",
2561                     so that there seems to be only one menu item
2562                     to report. */
2563                  if (! NILP (sequence))
2564                    {
2565                      Lisp_Object tem;
2566                      tem = Faref (sequence, make_number (XVECTOR (sequence)->size - 1));
2567                      if (STRINGP (tem))
2568                        Faset (sequence, make_number (XVECTOR (sequence)->size - 1),
2569                               build_string ("(any string)"));
2570                    }
2571    
2572                /* It is a true unshadowed match.  Record it, unless it's already                /* It is a true unshadowed match.  Record it, unless it's already
2573                   been seen (as could happen when inheriting keymaps).  */                   been seen (as could happen when inheriting keymaps).  */
2574                if (NILP (Fmember (sequence, found)))                if (NILP (Fmember (sequence, found)))
# Line 2731  where_is_internal_2 (args, key, binding) Line 2746  where_is_internal_2 (args, key, binding)
2746  }  }
2747    
2748    
2749  /* This function cannot GC.  */  /* This function can GC because get_keyelt can.  */
2750    
2751  static Lisp_Object  static Lisp_Object
2752  where_is_internal_1 (binding, key, definition, noindirect, this, last,  where_is_internal_1 (binding, key, definition, noindirect, this, last,

Legend:
Removed from v.1.302  
changed lines
  Added in v.1.303

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