Mercurial > hg > xemacs-beta

comparison src/casefiddle.c @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 6240c7796c7a
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
287 BUF_SET_PT (buf, max (BUF_PT (buf), farend)); 287 BUF_SET_PT (buf, max (BUF_PT (buf), farend));
288 return Qnil; 288 return Qnil;
289 } 289 }
290 290
291 DEFUN ("upcase-word", Fupcase_word, 1, 2, "p", /* 291 DEFUN ("upcase-word", Fupcase_word, 1, 2, "p", /*
292 Convert following word (or ARG words) to upper case, moving over. 292 Convert following word (or N words) to upper case, moving over.
293 With negative argument, convert previous words but do not move. 293 With negative argument, convert previous words but do not move.
294 See also `capitalize-word'. 294 See also `capitalize-word'.
295 Optional second arg BUFFER defaults to the current buffer. 295 Optional second arg BUFFER defaults to the current buffer.
296 */ 296 */
297 (arg, buffer)) 297 (n, buffer))
298 { 298 {
299 /* This function can GC */ 299 /* This function can GC */
300 return casify_word (CASE_UP, arg, buffer); 300 return casify_word (CASE_UP, n, buffer);
301 } 301 }
302 302
303 DEFUN ("downcase-word", Fdowncase_word, 1, 2, "p", /* 303 DEFUN ("downcase-word", Fdowncase_word, 1, 2, "p", /*
304 Convert following word (or ARG words) to lower case, moving over. 304 Convert following word (or N words) to lower case, moving over.
305 With negative argument, convert previous words but do not move. 305 With negative argument, convert previous words but do not move.
306 Optional second arg BUFFER defaults to the current buffer. 306 Optional second arg BUFFER defaults to the current buffer.
307 */ 307 */
308 (arg, buffer)) 308 (n, buffer))
309 { 309 {
310 /* This function can GC */ 310 /* This function can GC */
311 return casify_word (CASE_DOWN, arg, buffer); 311 return casify_word (CASE_DOWN, n, buffer);
312 } 312 }
313 313
314 DEFUN ("capitalize-word", Fcapitalize_word, 1, 2, "p", /* 314 DEFUN ("capitalize-word", Fcapitalize_word, 1, 2, "p", /*
315 Capitalize the following word (or ARG words), moving over. 315 Capitalize the following word (or N words), moving over.
316 This gives the word(s) a first character in upper case 316 This gives the word(s) a first character in upper case
317 and the rest lower case. 317 and the rest lower case.
318 With negative argument, capitalize previous words but do not move. 318 With negative argument, capitalize previous words but do not move.
319 Optional second arg BUFFER defaults to the current buffer. 319 Optional second arg BUFFER defaults to the current buffer.
320 */ 320 */
321 (arg, buffer)) 321 (n, buffer))
322 { 322 {
323 /* This function can GC */ 323 /* This function can GC */
324 return casify_word (CASE_CAPITALIZE, arg, buffer); 324 return casify_word (CASE_CAPITALIZE, n, buffer);
325 } 325 }
326 326
327 327
328 void 328 void
329 syms_of_casefiddle (void) 329 syms_of_casefiddle (void)