#endif
#include "window.h"
-Lisp_Object Qcoerce;
-
/* Indentation can insert tabs if this is non-zero;
otherwise always uses spaces */
int indent_tabs_mode;
If specified column is within a character, point goes after that character.
If it's past end of line, point goes to end of line.
-A value of 'coerce for the second (optional) argument FORCE means if
-COLUMN is in the middle of a tab character, change it to spaces.
-Any other non-nil value means the same, plus if the line is too short to
-reach column COLUMN, then add spaces/tabs to get there.
-
+A non-nil second (optional) argument FORCE means, if the line
+is too short to reach column COLUMN then add spaces/tabs to get there,
+and if COLUMN is in the middle of a tab character, change it to spaces.
Returns the actual column that it moved to.
*/
(column, force, buffer))
}
/* If line ends prematurely, add space to the end. */
- if (col < goal && !NILP (force) && !EQ (force, Qcoerce))
+ if (col < goal && !NILP (force))
{
col = goal;
Findent_to (make_int (col), Qzero, buffer);
assert (start <= end);
assert (start >= 0);
assert (end < Dynarr_length (cache));
-
+
vpix = 0;
for (i = start; i <= end; i++)
vpix += Dynarr_atp (cache, i)->height;
if (NILP (window))
window = Fselected_window (Qnil);
- CHECK_LIVE_WINDOW (window);
+ CHECK_WINDOW (window);
CHECK_INT (lines);
selected = (EQ (window, Fselected_window (Qnil)));
bufpos = vmotion_1 (w, orig, XINT (lines), vpos, vpix);
/* Note that the buffer's point is set, not the window's point. */
- if (selected)
+ if (selected)
BUF_SET_PT (XBUFFER (w->buffer), bufpos);
else
set_marker_restricted (w->pointm[CURRENT_DISP],
if (NILP (window))
window = Fselected_window (Qnil);
- CHECK_LIVE_WINDOW (window);
+ CHECK_WINDOW (window);
w = XWINDOW (window);
eobuf = BUF_ZV (XBUFFER (w->buffer));
if (NILP (window))
window = Fselected_window (Qnil);
- CHECK_LIVE_WINDOW (window);
+ CHECK_WINDOW (window);
CHECK_INT (pixels);
selected = (EQ (window, Fselected_window (Qnil)));
bufpos = vmotion_pixels (window, orig, XINT (pixels), howto, &motion);
- if (selected)
+ if (selected)
BUF_SET_PT (XBUFFER (w->buffer), bufpos);
else
set_marker_restricted (w->pointm[CURRENT_DISP],
#endif
DEFSUBR (Fvertical_motion);
DEFSUBR (Fvertical_motion_pixels);
-
- defsymbol (&Qcoerce, "coerce");
}
void