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

Diff of /emacs/src/marker.c

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

revision 1.38 by lektu, Wed Apr 17 13:49:49 2002 UTC revision 1.38.2.1 by miles, Fri Apr 4 06:21:02 2003 UTC
# Line 531  Returns MARKER.  */) Line 531  Returns MARKER.  */)
531        m->chain = BUF_MARKERS (b);        m->chain = BUF_MARKERS (b);
532        BUF_MARKERS (b) = marker;        BUF_MARKERS (b) = marker;
533      }      }
534      
535    return marker;    return marker;
536  }  }
537    
538  /* This version of Fset_marker won't let the position  /* This version of Fset_marker won't let the position
539     be outside the visible part.  */     be outside the visible part.  */
540    
541  Lisp_Object  Lisp_Object
542  set_marker_restricted (marker, pos, buffer)  set_marker_restricted (marker, pos, buffer)
543       Lisp_Object marker, pos, buffer;       Lisp_Object marker, pos, buffer;
544  {  {
# Line 607  set_marker_restricted (marker, pos, buff Line 607  set_marker_restricted (marker, pos, buff
607        m->chain = BUF_MARKERS (b);        m->chain = BUF_MARKERS (b);
608        BUF_MARKERS (b) = marker;        BUF_MARKERS (b) = marker;
609      }      }
610      
611    return marker;    return marker;
612  }  }
613    
614  /* Set the position of MARKER, specifying both the  /* Set the position of MARKER, specifying both the
615     character position and the corresponding byte position.  */     character position and the corresponding byte position.  */
616    
617  Lisp_Object  Lisp_Object
618  set_marker_both (marker, buffer, charpos, bytepos)  set_marker_both (marker, buffer, charpos, bytepos)
619       Lisp_Object marker, buffer;       Lisp_Object marker, buffer;
620       int charpos, bytepos;       int charpos, bytepos;
# Line 658  set_marker_both (marker, buffer, charpos Line 658  set_marker_both (marker, buffer, charpos
658        m->chain = BUF_MARKERS (b);        m->chain = BUF_MARKERS (b);
659        BUF_MARKERS (b) = marker;        BUF_MARKERS (b) = marker;
660      }      }
661      
662    return marker;    return marker;
663  }  }
664    
665  /* This version of set_marker_both won't let the position  /* This version of set_marker_both won't let the position
666     be outside the visible part.  */     be outside the visible part.  */
667    
668  Lisp_Object  Lisp_Object
669  set_marker_restricted_both (marker, buffer, charpos, bytepos)  set_marker_restricted_both (marker, buffer, charpos, bytepos)
670       Lisp_Object marker, buffer;       Lisp_Object marker, buffer;
671       int charpos, bytepos;       int charpos, bytepos;
# Line 718  set_marker_restricted_both (marker, buff Line 718  set_marker_restricted_both (marker, buff
718        m->chain = BUF_MARKERS (b);        m->chain = BUF_MARKERS (b);
719        BUF_MARKERS (b) = marker;        BUF_MARKERS (b) = marker;
720      }      }
721      
722    return marker;    return marker;
723  }  }
724    

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.38.2.1

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