commit: #'fill; move all declarations before statements, for the Visual Studio build
changeset: 5309:c290121b0c3f
tag: tip
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Tue Nov 30 13:08:44 2010 +0000
files: src/ChangeLog src/fns.c
description:
#'fill; move all declarations before statements, for the Visual Studio build
2010-11-30 Aidan Kehoe <kehoea(a)parhasard.net>
* fns.c (Ffill):
Move all declarations before statements, for the sake of the
Visual Studio build. Thank you Vin!
diff -r 17c381a2f377 -r c290121b0c3f src/ChangeLog
--- a/src/ChangeLog Wed Nov 24 17:54:57 2010 +0000
+++ b/src/ChangeLog Tue Nov 30 13:08:44 2010 +0000
＠＠ -1,3 +1,9 ＠＠
+2010-11-30 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * fns.c (Ffill):
+ Move all declarations before statements, for the sake of the
+ Visual Studio build. Thank you Vin!
+
2010-11-24 Aidan Kehoe <kehoea(a)parhasard.net>
* font-mgr.c (Ffc_pattern_get): Fix my last change when both
diff -r 17c381a2f377 -r c290121b0c3f src/fns.c
--- a/src/fns.c Wed Nov 24 17:54:57 2010 +0000
+++ b/src/fns.c Tue Nov 30 13:08:44 2010 +0000
＠＠ -4173,11 +4173,13 ＠＠
{
Lisp_Object sequence = args[0];
Lisp_Object item = args[1];
- Elemcount starting = 0, ending = EMACS_INT_MAX + 1, ii, len;
+ Elemcount starting, ending = EMACS_INT_MAX + 1, ii, len;
PARSE_KEYWORDS (Ffill, nargs, args, 2, (start, end), (start = Qzero));
CHECK_NATNUM (start);
+ starting = BIGNUMP (start) ? EMACS_INT_MAX + 1 : XINT (start);
+
if (!NILP (end))
{
CHECK_NATNUM (end);
＠＠ -4201,7 +4203,6 ＠＠
check_sequence_range (sequence, start, end, make_int (len));
ending = min (ending, len);
- starting = XINT (start);
for (ii = starting; ii < ending; ++ii)
{
＠＠ -4220,7 +4221,6 ＠＠
check_sequence_range (sequence, start, end, make_int (len));
ending = min (ending, len);
- starting = XINT (start);
for (ii = starting; ii < ending; ++ii)
{
＠＠ -4230,7 +4230,6 ＠＠
else if (LISTP (sequence))
{
Elemcount counting = 0;
- starting = BIGNUMP (start) ? EMACS_INT_MAX + 1 : XINT (start);
EXTERNAL_LIST_LOOP_3 (elt, sequence, tail)
{
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches