(make_lispy_event): Add string info to the event,

analogous to what's done on mode lines.
(read_key_sequence): For a click on a string, consider `local-map'
and `keymap' of that string.

2 files changed, 48 insertions, 0 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index b2ff4d07973..06dac9fc64e 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,18 @@
 2001-03-09  Gerd Moellmann  <gerd@gnu.org>
 
+	* dispextern.h (string_buffer_position): Add prototype.
+
+	* xdisp.c (string_buffer_position, display_prop_string_p) 
+	(single_display_prop_string_p): New functions.
+
+	* xterm.c (note_mouse_highlight): If there's no help-echo on
+	a string, look at the buffer text ``under'' it.
+
+	* keyboard.c (make_lispy_event): Add string info to the event,
+	analogous to what's done on mode lines.
+	(read_key_sequence): For a click on a string, consider `local-map'
+	and `keymap' of that string.
+
 	* keyboard.c (make_lispy_event, make_lispy_movement): Adjust
 	calls to buffer_posn_from_coords to new format.
 
diff --git a/src/keyboard.c b/src/keyboard.c
index a73936e9198..3c01af43475 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -4782,6 +4782,10 @@ make_lispy_event (event)
 		    struct display_pos p;
 		    buffer_posn_from_coords (w, &wx, &wy, &object, &p);
 		    posn = make_number (CHARPOS (p.pos));
+		    if (STRINGP (object))
+		      string_info
+			= Fcons (object,
+				 make_number (CHARPOS (p.string_pos)));
 		  }
 	      }
 
@@ -7769,6 +7773,7 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last,
      int can_return_switch_frame;
      int fix_current_buffer;
 {
+  volatile Lisp_Object from_string;
   volatile int count = specpdl_ptr - specpdl;
 
   /* How many keys there are in the current key sequence.  */
@@ -7922,6 +7927,7 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last,
 
   orig_local_map = get_local_map (PT, current_buffer, Qlocal_map);
   orig_keymap = get_local_map (PT, current_buffer, Qkeymap);
+  from_string = Qnil;
 
   /* We jump here when the key sequence has been thoroughly changed, and
      we need to rescan it starting from the beginning.  When we jump here,
@@ -8326,6 +8332,35 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last,
 
 		  goto replay_key;
 		}
+	      else if (CONSP (POSN_STRING (EVENT_START (key)))
+		       && NILP (from_string))
+		{
+		  /* For a click on a string, i.e. overlay string or a
+		     string displayed via the `display' property,
+		     consider `local-map' and `keymap' properties of
+		     that string.  */
+		  Lisp_Object string, pos, map, map2;
+
+		  string = POSN_STRING (EVENT_START (key));
+		  pos = XCDR (string);
+		  string = XCAR (string);
+		  if (XINT (pos) >= 0
+		      && XINT (pos) < XSTRING (string)->size)
+		    {
+		      map = Fget_text_property (pos, Qlocal_map, string);
+		      if (!NILP (map))
+			orig_local_map = map;
+		      map2 = Fget_text_property (pos, Qkeymap, string);
+		      if (!NILP (map2))
+			orig_keymap = map2;
+
+		      if (!NILP (map) || !NILP (map2))
+			{
+			  from_string = string;
+			  goto replay_sequence;
+			}
+		    }
+		}
 	    }
 	  else if (CONSP (XCDR (key))
 		   && CONSP (EVENT_START (key))