Mercurial > emacs

comparison src/editfns.c @ 53819:a3fe35a8b56b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fchar_after, Fchar_before): Doc fixes.
author Luc Teirlinck <teirllm@auburn.edu>
date Thu, 05 Feb 2004 04:16:49 +0000
parents 4f06a8a0e7a6
children 29d4d158e5eb
comparison
equal deleted inserted replaced
53818:a3c89ed1aac5 53819:a3fe35a8b56b
1136 return Qnil; 1136 return Qnil;
1137 } 1137 }
1138 1138
1139 DEFUN ("char-after", Fchar_after, Schar_after, 0, 1, 0, 1139 DEFUN ("char-after", Fchar_after, Schar_after, 0, 1, 0,
1140 doc: /* Return character in current buffer at position POS. 1140 doc: /* Return character in current buffer at position POS.
1141 POS is an integer or a marker. 1141 POS is an integer or a marker and defaults to point.
1142 If POS is out of range, the value is nil. */) 1142 If POS is out of range, the value is nil. */)
1143 (pos) 1143 (pos)
1144 Lisp_Object pos; 1144 Lisp_Object pos;
1145 { 1145 {
1146 register int pos_byte; 1146 register int pos_byte;
1169 return make_number (FETCH_CHAR (pos_byte)); 1169 return make_number (FETCH_CHAR (pos_byte));
1170 } 1170 }
1171 1171
1172 DEFUN ("char-before", Fchar_before, Schar_before, 0, 1, 0, 1172 DEFUN ("char-before", Fchar_before, Schar_before, 0, 1, 0,
1173 doc: /* Return character in current buffer preceding position POS. 1173 doc: /* Return character in current buffer preceding position POS.
1174 POS is an integer or a marker. 1174 POS is an integer or a marker and defaults to point.
1175 If POS is out of range, the value is nil. */) 1175 If POS is out of range, the value is nil. */)
1176 (pos) 1176 (pos)
1177 Lisp_Object pos; 1177 Lisp_Object pos;
1178 { 1178 {
1179 register Lisp_Object val; 1179 register Lisp_Object val;