Mercurial > hg > xemacs-beta

comparison src/cmds.c @ 462:0784d089fdc9 r21-2-46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-46
author cvs
date Mon, 13 Aug 2007 11:44:37 +0200
parents 1ccc32a20af4
children 183866b06e0b
comparison
equal deleted inserted replaced
461:120ed4009e51 462:0784d089fdc9
48 DEFUN ("forward-char", Fforward_char, 0, 2, "_p", /* 48 DEFUN ("forward-char", Fforward_char, 0, 2, "_p", /*
49 Move point right COUNT characters (left if COUNT is negative). 49 Move point right COUNT characters (left if COUNT is negative).
50 On attempt to pass end of buffer, stop and signal `end-of-buffer'. 50 On attempt to pass end of buffer, stop and signal `end-of-buffer'.
51 On attempt to pass beginning of buffer, stop and signal `beginning-of-buffer'. 51 On attempt to pass beginning of buffer, stop and signal `beginning-of-buffer'.
52 On reaching end of buffer, stop and signal error. 52 On reaching end of buffer, stop and signal error.
53
54 The characters that are moved over may be added to the current selection
55 \(i.e. active region) if the Shift key is held down, a motion key is used
56 to invoke this command, and `shifted-motion-keys-select-region' is t; see
57 the documentation for this variable for more details.
53 */ 58 */
54 (count, buffer)) 59 (count, buffer))
55 { 60 {
56 struct buffer *buf = decode_buffer (buffer, 1); 61 struct buffer *buf = decode_buffer (buffer, 1);
57 EMACS_INT n; 62 EMACS_INT n;
93 98
94 DEFUN ("backward-char", Fbackward_char, 0, 2, "_p", /* 99 DEFUN ("backward-char", Fbackward_char, 0, 2, "_p", /*
95 Move point left COUNT characters (right if COUNT is negative). 100 Move point left COUNT characters (right if COUNT is negative).
96 On attempt to pass end of buffer, stop and signal `end-of-buffer'. 101 On attempt to pass end of buffer, stop and signal `end-of-buffer'.
97 On attempt to pass beginning of buffer, stop and signal `beginning-of-buffer'. 102 On attempt to pass beginning of buffer, stop and signal `beginning-of-buffer'.
103
104 The characters that are moved over may be added to the current selection
105 \(i.e. active region) if the Shift key is held down, a motion key is used
106 to invoke this command, and `shifted-motion-keys-select-region' is t; see
107 the documentation for this variable for more details.
98 */ 108 */
99 (count, buffer)) 109 (count, buffer))
100 { 110 {
101 if (NILP (count)) 111 if (NILP (count))
102 count = make_int (-1); 112 count = make_int (-1);
115 Returns the count of lines left to move. If moving forward, 125 Returns the count of lines left to move. If moving forward,
116 that is COUNT - number of lines moved; if backward, COUNT + number moved. 126 that is COUNT - number of lines moved; if backward, COUNT + number moved.
117 With positive COUNT, a non-empty line at the end counts as one line 127 With positive COUNT, a non-empty line at the end counts as one line
118 successfully moved (for the return value). 128 successfully moved (for the return value).
119 If BUFFER is nil, the current buffer is assumed. 129 If BUFFER is nil, the current buffer is assumed.
130
131 The characters that are moved over may be added to the current selection
132 \(i.e. active region) if the Shift key is held down, a motion key is used
133 to invoke this command, and `shifted-motion-keys-select-region' is t; see
134 the documentation for this variable for more details.
120 */ 135 */
121 (count, buffer)) 136 (count, buffer))
122 { 137 {
123 struct buffer *buf = decode_buffer (buffer, 1); 138 struct buffer *buf = decode_buffer (buffer, 1);
124 Bufpos pos2 = BUF_PT (buf); 139 Bufpos pos2 = BUF_PT (buf);
176 DEFUN ("beginning-of-line", Fbeginning_of_line, 0, 2, "_p", /* 191 DEFUN ("beginning-of-line", Fbeginning_of_line, 0, 2, "_p", /*
177 Move point to beginning of current line. 192 Move point to beginning of current line.
178 With argument COUNT not nil or 1, move forward COUNT - 1 lines first. 193 With argument COUNT not nil or 1, move forward COUNT - 1 lines first.
179 If scan reaches end of buffer, stop there without error. 194 If scan reaches end of buffer, stop there without error.
180 If BUFFER is nil, the current buffer is assumed. 195 If BUFFER is nil, the current buffer is assumed.
196
197 The characters that are moved over may be added to the current selection
198 \(i.e. active region) if the Shift key is held down, a motion key is used
199 to invoke this command, and `shifted-motion-keys-select-region' is t; see
200 the documentation for this variable for more details.
181 */ 201 */
182 (count, buffer)) 202 (count, buffer))
183 { 203 {
184 struct buffer *b = decode_buffer (buffer, 1); 204 struct buffer *b = decode_buffer (buffer, 1);
185 205
213 DEFUN ("end-of-line", Fend_of_line, 0, 2, "_p", /* 233 DEFUN ("end-of-line", Fend_of_line, 0, 2, "_p", /*
214 Move point to end of current line. 234 Move point to end of current line.
215 With argument COUNT not nil or 1, move forward COUNT - 1 lines first. 235 With argument COUNT not nil or 1, move forward COUNT - 1 lines first.
216 If scan reaches end of buffer, stop there without error. 236 If scan reaches end of buffer, stop there without error.
217 If BUFFER is nil, the current buffer is assumed. 237 If BUFFER is nil, the current buffer is assumed.
238
239 The characters that are moved over may be added to the current selection
240 \(i.e. active region) if the Shift key is held down, a motion key is used
241 to invoke this command, and `shifted-motion-keys-select-region' is t; see
242 the documentation for this variable for more details.
218 */ 243 */
219 (count, buffer)) 244 (count, buffer))
220 { 245 {
221 struct buffer *b = decode_buffer (buffer, 1); 246 struct buffer *b = decode_buffer (buffer, 1);
222 247