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

[Miles Bader]

Index: emacs/src/xdisp.c
diff -c emacs/src/xdisp.c:1.754.2.36 emacs/src/xdisp.c:1.754.2.37
*** emacs/src/xdisp.c:1.754.2.36        Fri Oct 29 02:05:10 2004
--- emacs/src/xdisp.c   Thu Nov  4 13:12:27 2004
***************
*** 4555,4561 ****
        {
          Lisp_Object prop;
  
!         prop = Fget_char_property (make_number (IT_CHARPOS (*it)),
                                     Qinvisible, it->window);
          if (TEXT_PROP_MEANS_INVISIBLE (prop))
            visible_p = 0;
--- 4555,4562 ----
        {
          Lisp_Object prop;
  
!         /* Check the newline before point for invisibility.  */
!         prop = Fget_char_property (make_number (IT_CHARPOS (*it) - 1),
                                     Qinvisible, it->window);
          if (TEXT_PROP_MEANS_INVISIBLE (prop))
            visible_p = 0;
***************
*** 8416,8422 ****
        {
          struct buffer *prev = current_buffer;
          int count = SPECPDL_INDEX ();
!         Lisp_Object old_tool_bar;
          struct gcpro gcpro1;
  
          /* Set current_buffer to the buffer of the selected
--- 8417,8424 ----
        {
          struct buffer *prev = current_buffer;
          int count = SPECPDL_INDEX ();
!         Lisp_Object new_tool_bar;
!           int new_n_tool_bar;
          struct gcpro gcpro1;
  
          /* Set current_buffer to the buffer of the selected
***************
*** 8435,8452 ****
              specbind (Qoverriding_local_map, Qnil);
            }
  
!         old_tool_bar = f->tool_bar_items;
!         GCPRO1 (old_tool_bar);
  
          /* Build desired tool-bar items from keymaps.  */
!           BLOCK_INPUT;
!         f->tool_bar_items
!           = tool_bar_items (f->tool_bar_items, &f->n_tool_bar_items);
!           UNBLOCK_INPUT;
  
          /* Redisplay the tool-bar if we changed it.  */
!         if (! NILP (Fequal (old_tool_bar, f->tool_bar_items)))
!           w->update_mode_line = Qt;
  
          UNGCPRO;
  
--- 8437,8460 ----
              specbind (Qoverriding_local_map, Qnil);
            }
  
!         GCPRO1 (new_tool_bar);
  
          /* Build desired tool-bar items from keymaps.  */
!           new_tool_bar = tool_bar_items (Fcopy_sequence (f->tool_bar_items),
!                                          &new_n_tool_bar);
  
          /* Redisplay the tool-bar if we changed it.  */
!         if (NILP (Fequal (new_tool_bar, f->tool_bar_items)))
!             {
!               /* Redisplay that happens asynchronously due to an expose event
!                  may access f->tool_bar_items.  Make sure we update both
!                  variables within BLOCK_INPUT so no such event interrupts.  */
!               BLOCK_INPUT;
!               f->tool_bar_items = new_tool_bar;
!               f->n_tool_bar_items = new_n_tool_bar;
!               w->update_mode_line = Qt;
!               UNBLOCK_INPUT;
!             }
  
          UNGCPRO;