xemacs-beta: src/indent.c comparison

comparison src/indent.c @ 20:859a2309aef8 r19-15b93

Import from CVS: tag r19-15b93

author	cvs
date	Mon, 13 Aug 2007 08:50:05 +0200
parents	0293115a14e9
children	131b0175ea99

comparison

equal deleted inserted replaced

-:ac1f612d5250
+:859a2309aef8
 return last_known_column;
 return column_at_point (buf, BUF_PT (buf), 1);
 }
-DEFUN ("current-column", Fcurrent_column, Scurrent_column, 0, 1, 0 /*
+DEFUN ("current-column", Fcurrent_column, 0, 1, 0, /*
 Return the horizontal position of point.  Beginning of line is column 0.
 This is calculated by adding together the widths of all the displayed
 representations of the character between the start of the previous line
 and point. (e.g. control characters will have a width of 2 or 4, tabs
 will have a variable width.)
 Ignores finite width of frame, which means that this function may return
 values greater than (frame-width).
 Whether the line is visible (if `selective-display' is t) has no effect;
 however, ^M is treated as end of line when `selective-display' is t.
 If BUFFER is nil, the current buffer is assumed.
-*/ )
+*/
-(buffer)
+(buffer))
-Lisp_Object buffer;
 {
 return (make_int (current_column (decode_buffer (buffer, 0))));
 }
-DEFUN ("indent-to", Findent_to, Sindent_to, 1, 3, "NIndent to column: " /*
+DEFUN ("indent-to", Findent_to, 1, 3, "NIndent to column: ", /*
 Indent from point with tabs and spaces until COLUMN is reached.
 Optional second argument MIN says always do at least MIN spaces
 even if that goes past COLUMN; by default, MIN is zero.
 If BUFFER is nil, the current buffer is assumed.
-*/ )
+*/
-(col, minimum, buffer)
+(col, minimum, buffer))
-Lisp_Object col, minimum, buffer;
 {
 /* This function can GC */
 int mincol;
 int fromcol;
 struct buffer *buf = decode_buffer (buffer, 0);
 return col;
 }
-DEFUN ("current-indentation", Fcurrent_indentation, Scurrent_indentation,
+DEFUN ("current-indentation", Fcurrent_indentation, 0, 1, 0, /*
-0, 1, 0 /*
 Return the indentation of the current line.
 This is the horizontal position of the character
 following any initial whitespace.
-*/ )
+*/
-(buffer)
+(buffer))
-Lisp_Object buffer;
 {
 struct buffer *buf = decode_buffer (buffer, 0);
 Bufpos pos = find_next_newline (buf, BUF_PT (buf), -1);
 XSETBUFFER (buffer, buf);
 return make_int (bi_spaces_at_point (buf, bufpos_to_bytind (buf, pos)));
 }
-DEFUN ("move-to-column", Fmove_to_column, Smove_to_column, 1, 3, 0 /*
+DEFUN ("move-to-column", Fmove_to_column, 1, 3, 0, /*
 Move point to column COLUMN in the current line.
 The column of a character is calculated by adding together the widths
 as displayed of the previous characters in the line.
 This function ignores line-continuation;
 there is no upper limit on the column number a character can have
 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)
+(column, force, buffer))
-Lisp_Object column, force, buffer;
 {
 /* This function can GC */
 Bufpos pos;
 struct buffer *buf = decode_buffer (buffer, 0);
 int col = current_column (buf);
 }
 RETURN_NOT_REACHED(0)	/* shut up compiler */
 }
-DEFUN ("vertical-motion", Fvertical_motion, Svertical_motion, 1, 2, 0 /*
+DEFUN ("vertical-motion", Fvertical_motion, 1, 2, 0, /*
 Move to start of frame line LINES lines down.
 If LINES is negative, this is moving up.
 The optional second argument WINDOW specifies the window to use for
 parameters such as width, horizontal scrolling, and so on.
 Sets point to position found; this may be start of line
 or just the start of a continuation line.
 Returns number of lines moved; may be closer to zero than LINES
 if beginning or end of buffer was reached.
 Optional second argument is WINDOW to move in.
-*/ )
+*/
-(lines, window)
+(lines, window))
-Lisp_Object lines, window;
 {
 if (NILP (window))
 window = Fselected_window (Qnil);
 CHECK_WINDOW (window);
 {
 void
 syms_of_indent (void)
 {
-defsubr (&Scurrent_indentation);
+DEFSUBR (Fcurrent_indentation);
-defsubr (&Sindent_to);
+DEFSUBR (Findent_to);
-defsubr (&Scurrent_column);
+DEFSUBR (Fcurrent_column);
-defsubr (&Smove_to_column);
+DEFSUBR (Fmove_to_column);
 #if 0 /* #### */
-defsubr (&Scompute_motion);
+DEFSUBR (Fcompute_motion);
 #endif
-defsubr (&Svertical_motion);
+DEFSUBR (Fvertical_motion);
 }
 void
 vars_of_indent (void)
 {

Mercurial > hg > xemacs-beta

comparison src/indent.c @ 20:859a2309aef8 r19-15b93