Mercurial > emacs

changeset 89394:6ffca50f25b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcheck_coding_systems_region): Fix type errors.
author Dave Love <fx@gnu.org>
date Thu, 13 Feb 2003 22:23:01 +0000
parents 09b0941c8b91
children e8d54378e4a3
files src/coding.c
diffstat 1 files changed, 13 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/src/coding.c	Wed Feb 12 18:48:38 2003 +0000
+++ b/src/coding.c	Thu Feb 13 22:23:01 2003 +0000
@@ -5440,7 +5440,7 @@
 	      produced_chars++;
 	    }
 	  else
-	    /* This is an annotation data.  */
+	    /* This is an annotation datum.  */
 	    buf -= c + 1;
 	}
     }
@@ -5816,7 +5816,7 @@
 }
 
 
-/* Extract an annotation data from a composition starting at POS and
+/* Extract an annotation datum from a composition starting at POS and
    ending before LIMIT of CODING->src_object (buffer or string), store
    the data in BUF, set *STOP to a starting position of the next
    composition (if any) or to LIMIT, and return the address of the
@@ -5902,7 +5902,7 @@
 }
 
 
-/* Extract an annotation data from a text property `charset' at POS of
+/* Extract an annotation datum from a text property `charset' at POS of
    CODING->src_object (buffer of string), store the data in BUF, set
    *STOP to the position where the value of `charset' property changes
    (limiting by LIMIT), and return the address of the next element of
@@ -6900,12 +6900,12 @@
       if (XINT (end) - XINT (start) == end_byte - start_byte)
 	return Qt;
 
-      if (start < GPT && end > GPT)
+      if (XINT (start) < GPT && XINT (end) > GPT)
 	{
-	  if ((GPT - start) < (end - GPT))
-	    move_gap_both (start, start_byte);
+	  if ((GPT - XINT (start)) < (XINT (end) - GPT))
+	    move_gap_both (XINT (start), start_byte);
 	  else
-	    move_gap_both (end, end_byte);
+	    move_gap_both (XINT (end), end_byte);
 	}
     }
 
@@ -7031,14 +7031,14 @@
       if (XINT (end) - XINT (start) == end_byte - start_byte)
 	return Qt;
 
-      if (start < GPT && end > GPT)
+      if (XINT (start) < GPT && XINT (end) > GPT)
 	{
-	  if ((GPT - start) < (end - GPT))
-	    move_gap_both (start, start_byte);
+	  if ((GPT - XINT (start)) < (XINT (end) - GPT))
+	    move_gap_both (XINT (start), start_byte);
 	  else
-	    move_gap_both (end, end_byte);
+	    move_gap_both (XINT (end), end_byte);
 	}
-      pos = start;
+      pos = XINT (start);
     }
 
   list = Qnil;
@@ -8187,7 +8187,7 @@
 }
 
 /* Fixme: should this record the alias relationships for
-   diagnostics?  */
+   diagnostics?  Should it update coding-system-list?  */
 DEFUN ("define-coding-system-alias", Fdefine_coding_system_alias,
        Sdefine_coding_system_alias, 2, 2, 0,
        doc: /* Define ALIAS as an alias for CODING-SYSTEM.  */)