[Emacs-diffs] Changes to emacs/src/keyboard.c

[Gerd Moellmann]

Index: emacs/src/keyboard.c
diff -c emacs/src/keyboard.c:1.671 emacs/src/keyboard.c:1.672
*** emacs/src/keyboard.c:1.671  Fri Apr 12 01:55:04 2002
--- emacs/src/keyboard.c        Fri Apr 12 05:35:34 2002
***************
*** 589,594 ****
--- 589,595 ----
  Lisp_Object Qvertical_line;
  Lisp_Object Qvertical_scroll_bar;
  Lisp_Object Qmenu_bar;
+ extern Lisp_Object Qleft_margin, Qright_margin;
  
  Lisp_Object recursive_edit_unwind (), command_loop ();
  Lisp_Object Fthis_command_keys ();
***************
*** 4926,4931 ****
--- 4927,4941 ----
                  }
                else if (part == 2)
                  posn = Qvertical_line;
+               else if (part == 6 || part == 7)
+                 {
+                   int charpos;
+                   Lisp_Object object = marginal_area_string (w, wx, wy, part,
+                                                              &charpos);
+                   posn = (part == 6) ? Qleft_margin : Qright_margin;
+                   if (STRINGP (object))
+                     string_info = Fcons (object, make_number (charpos));
+                 }
                else
                  {
                    Lisp_Object object;