X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/fe3537c3a91491253a87f4d43540344d040c34e7..40be44e2a95cd703e49022c8f8aa0ce5b9b29ea6:/src/intervals.c diff --git a/src/intervals.c b/src/intervals.c index 5e08e13d23..6aee6e9d7f 100644 --- a/src/intervals.c +++ b/src/intervals.c @@ -1,6 +1,5 @@ /* Code for doing intervals. - Copyright (C) 1993, 1994, 1995, 1997, 1998, 2001, 2002, 2003, 2004, - 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. + Copyright (C) 1993-1995, 1997-1998, 2001-2011 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -1875,15 +1874,6 @@ lookup_char_property (Lisp_Object plist, register Lisp_Object prop, int textprop } -/* Set point "temporarily", without checking any text properties. */ - -INLINE void -temp_set_point (struct buffer *buffer, EMACS_INT charpos) -{ - temp_set_point_both (buffer, charpos, - buf_charpos_to_bytepos (buffer, charpos)); -} - /* Set point in BUFFER "temporarily" to CHARPOS, which corresponds to byte position BYTEPOS. */ @@ -1906,6 +1896,15 @@ temp_set_point_both (struct buffer *buffer, BUF_PT (buffer) = charpos; } +/* Set point "temporarily", without checking any text properties. */ + +INLINE void +temp_set_point (struct buffer *buffer, EMACS_INT charpos) +{ + temp_set_point_both (buffer, charpos, + buf_charpos_to_bytepos (buffer, charpos)); +} + /* Set point in BUFFER to CHARPOS. If the target position is before an intangible character, move to an ok place. */ @@ -1979,7 +1978,7 @@ set_point_both (EMACS_INT charpos, EMACS_INT bytepos) int have_overlays; EMACS_INT original_position; - current_buffer->point_before_scroll = Qnil; + BVAR (current_buffer, point_before_scroll) = Qnil; if (charpos == PT) return; @@ -2343,7 +2342,7 @@ get_local_map (register EMACS_INT position, register struct buffer *buffer, if (EQ (type, Qkeymap)) return Qnil; else - return buffer->keymap; + return BVAR (buffer, keymap); } /* Produce an interval tree reflecting the intervals in @@ -2565,5 +2564,3 @@ set_intervals_multibyte (int multi_flag) BEG, BEG_BYTE, Z, Z_BYTE); } -/* arch-tag: 3d402b60-083c-4271-b4a3-ebd9a74bfe27 - (do not change this comment) */