* alloc.c (Fmake_byte_code): Fix typo in comment.

* print.c (print_interval): Define as static to match prototype.
* indent.c (disptab_matches_widthtab, recompute_width_table):
Convert to eassert.

diff --git a/src/ChangeLog b/src/ChangeLog
index 26bd1925a5f9c787977f3f0f38020fce8edf2b73..3c62dffc3e03343c95056d810cd8a59f87f3bc82 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
+2012-10-16  Dmitry Antipov  <dmantipov@yandex.ru>
+
+       * alloc.c (Fmake_byte_code): Fix typo in comment.
+       * print.c (print_interval): Define as static to match prototype.
+       * indent.c (disptab_matches_widthtab, recompute_width_table):
+       Convert to eassert.
+
 2012-10-16  Dmitry Antipov  <dmantipov@yandex.ru>
 
        * editfns.c (get_system_name): Remove.

diff --git a/src/alloc.c b/src/alloc.c
index 95be8db16143543d6e380b72274785d48ada13cb..0afe446d26902a796c990a98db336b6589e49e31 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3100,7 +3100,7 @@ usage: (make-byte-code ARGLIST BYTE-CODE CONSTANTS DEPTH &optional DOCSTRING INT
   ptrdiff_t i;
   register struct Lisp_Vector *p;
 
-  /* We used to purecopy everything here, if purify-flga was set.  This worked
+  /* We used to purecopy everything here, if purify-flag was set.  This worked
      OK for Emacs-23, but with Emacs-24's lexical binding code, it can be
      dangerous, since make-byte-code is used during execution to build
      closures, so any closure built during the preload phase would end up

diff --git a/src/indent.c b/src/indent.c
index 81a63455ecb6ab1e9beea7402d678195f7e43386..bbc944d251848c8842dae97c5e27559af2132aee 100644 (file)
--- a/src/indent.c
+++ b/src/indent.c
@@ -119,8 +119,7 @@ disptab_matches_widthtab (struct Lisp_Char_Table *disptab, struct Lisp_Vector *w
 {
   int i;
 
-  if (widthtab->header.size != 256)
-    emacs_abort ();
+  eassert (widthtab->header.size == 256);
 
   for (i = 0; i < 256; i++)
     if (character_width (i, disptab)
@@ -141,8 +140,7 @@ recompute_width_table (struct buffer *buf, struct Lisp_Char_Table *disptab)
   if (!VECTORP (BVAR (buf, width_table)))
     bset_width_table (buf, Fmake_vector (make_number (256), make_number (0)));
   widthtab = XVECTOR (BVAR (buf, width_table));
-  if (widthtab->header.size != 256)
-    emacs_abort ();
+  eassert (widthtab->header.size == 256);
 
   for (i = 0; i < 256; i++)
     XSETFASTINT (widthtab->contents[i], character_width (i, disptab));

diff --git a/src/print.c b/src/print.c
index 49b491faec885ec10428b7b9d46883a05a071b10..ccf0e8ed7cc43a77c9724980c9ad858e0fcf2f28 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -2075,7 +2075,7 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag
 /* Print a description of INTERVAL using PRINTCHARFUN.
    This is part of printing a string that has text properties.  */
 
-void
+static void
 print_interval (INTERVAL interval, Lisp_Object printcharfun)
 {
   if (NILP (interval->plist))