/[emacs]/emacs/src/editfns.c
ViewVC logotype

Diff of /emacs/src/editfns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.351 by handa, Sun Jan 26 23:21:53 2003 UTC revision 1.352 by lektu, Tue Feb 4 14:03:12 2003 UTC
# Line 289  region_limit (beginningp) Line 289  region_limit (beginningp)
289  {  {
290    extern Lisp_Object Vmark_even_if_inactive; /* Defined in callint.c. */    extern Lisp_Object Vmark_even_if_inactive; /* Defined in callint.c. */
291    Lisp_Object m;    Lisp_Object m;
292      
293    if (!NILP (Vtransient_mark_mode)    if (!NILP (Vtransient_mark_mode)
294        && NILP (Vmark_even_if_inactive)        && NILP (Vmark_even_if_inactive)
295        && NILP (current_buffer->mark_active))        && NILP (current_buffer->mark_active))
296      Fsignal (Qmark_inactive, Qnil);      Fsignal (Qmark_inactive, Qnil);
297      
298    m = Fmarker_position (current_buffer->mark);    m = Fmarker_position (current_buffer->mark);
299    if (NILP (m))    if (NILP (m))
300      error ("The mark is not set now, so there is no region");      error ("The mark is not set now, so there is no region");
301      
302    if ((PT < XFASTINT (m)) == beginningp)    if ((PT < XFASTINT (m)) == beginningp)
303      m = make_number (PT);      m = make_number (PT);
304    return m;    return m;
# Line 456  get_pos_property (position, prop, object Line 456  get_pos_property (position, prop, object
456                  }                  }
457              }              }
458          }          }
459          
460      }      }
461    
462    { /* Now check the text-properties.  */    { /* Now check the text-properties.  */
# Line 881  save_excursion_restore (info) Line 881  save_excursion_restore (info)
881    /* visible */    /* visible */
882    info = XCDR (info);    info = XCDR (info);
883    visible_p = !NILP (XCAR (info));    visible_p = !NILP (XCAR (info));
884      
885  #if 0 /* We used to make the current buffer visible in the selected window  #if 0 /* We used to make the current buffer visible in the selected window
886           if that was true previously.  That avoids some anomalies.           if that was true previously.  That avoids some anomalies.
887           But it creates others, and it wasn't documented, and it is simpler           But it creates others, and it wasn't documented, and it is simpler
# Line 2952  save_restriction_restore (data) Line 2952  save_restriction_restore (data)
2952                               clip_to_bounds (beg->charpos, pt, end->charpos),                               clip_to_bounds (beg->charpos, pt, end->charpos),
2953                               clip_to_bounds (beg->bytepos, BUF_PT_BYTE (buf),                               clip_to_bounds (beg->bytepos, BUF_PT_BYTE (buf),
2954                                               end->bytepos));                                               end->bytepos));
2955              
2956            buf->clip_changed = 1; /* Remember that the narrowing changed. */            buf->clip_changed = 1; /* Remember that the narrowing changed. */
2957          }          }
2958      }      }

Legend:
Removed from v.1.351  
changed lines
  Added in v.1.352

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