Mercurial > hg > xemacs-beta

comparison src/editfns.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents a8d8f419b459
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
1551 This is highly bogus, however, and XEmacs always behaves as if 1551 This is highly bogus, however, and XEmacs always behaves as if
1552 `t' were passed to INHERIT. 1552 `t' were passed to INHERIT.
1553 The optional fourth arg BUFFER specifies the buffer to insert the 1553 The optional fourth arg BUFFER specifies the buffer to insert the
1554 text into. If BUFFER is nil, the current buffer is assumed. 1554 text into. If BUFFER is nil, the current buffer is assumed.
1555 */ 1555 */
1556 (character, count, ignored, buffer)) 1556 (character, count, UNUSED (ignored), buffer))
1557 { 1557 {
1558 /* This function can GC */ 1558 /* This function can GC */
1559 REGISTER Ibyte *string; 1559 REGISTER Ibyte *string;
1560 REGISTER Bytecount slen; 1560 REGISTER Bytecount slen;
1561 REGISTER Bytecount i, j; 1561 REGISTER Bytecount i, j;
2327 any markers that happen to be located in the regions. (#### BUG: currently 2327 any markers that happen to be located in the regions. (#### BUG: currently
2328 this function always acts as if LEAVE-MARKERS is non-nil.) 2328 this function always acts as if LEAVE-MARKERS is non-nil.)
2329 2329
2330 Transposing beyond buffer boundaries is an error. 2330 Transposing beyond buffer boundaries is an error.
2331 */ 2331 */
2332 (start1, end1, start2, end2, leave_markers)) 2332 (start1, end1, start2, end2, UNUSED (leave_markers)))
2333 { 2333 {
2334 Charbpos startr1, endr1, startr2, endr2; 2334 Charbpos startr1, endr1, startr2, endr2;
2335 Charcount len1, len2; 2335 Charcount len1, len2;
2336 Lisp_Object string1, string2; 2336 Lisp_Object string1, string2;
2337 struct buffer *buf = current_buffer; 2337 struct buffer *buf = current_buffer;