mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-12 09:28:24 +00:00
Code Issues Releases Activity

(set_point): Use virtual bounds, not real bounds,

Browse Source 
in the abort test for POSITION.
Skip the intangibility test if POSITION is at either end of buffer.
This commit is contained in:
Richard M. Stallman 1996-12-18 06:30:59 +00:00
parent 85673d2b49
commit b827a9e32b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/intervals.c
View File

@ -1613,7 +1613,7 @@ set_point (position, buffer)
/* Check this now, before checking if the buffer has any intervals.
That way, we can catch conditions which break this sanity check
whether or not there are intervals in the buffer. */
if (position > BUF_Z (buffer) || position < BUF_BEG (buffer))
if (position > BUF_ZV (buffer) || position < BUF_BEGV (buffer))
abort ();
have_overlays = (! NILP (buffer->overlays_before)
@ -1671,7 +1671,10 @@ set_point (position, buffer)
move forward or backward until a change in that property. */
if (NILP (Vinhibit_point_motion_hooks)
&& ((! NULL_INTERVAL_P (to) && ! NULL_INTERVAL_P (toprev))
|| have_overlays))
|| have_overlays)
/* Intangibility never stops us from positioning at the beginning
or end of the buffer, so don't bother checking in that case. */
&& position != BEGV && position != ZV)
{
Lisp_Object intangible_propval;
Lisp_Object pos;