* composite.c (run_composite_function): Use NILP when checking for nil.

(syms_of_composite): Delete local var NARGS, pass an int as first argument to
Fmake_hash_table.

2 files changed, 8 insertions, 4 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index db9fe4caeb0..de883b830a4 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -7,6 +7,11 @@
         (make_number): Define as a function if it's not defined as a
         macro.
 
+        * composite.c (run_composite_function): Use NILP when checking for
+        nil.
+        (syms_of_composite): Delete local var NARGS, pass an int as first
+        argument to Fmake_hash_table.
+
         * editfns.c (text_property_stickiness): Use NILP to test
         Lisp_Object boolean value.
         (Fmessage_or_box): Don't use NILP to test int variable.
diff --git a/src/composite.c b/src/composite.c
index 335fbc103cf..440bce3b41f 100644
--- a/src/composite.c
+++ b/src/composite.c
@@ -456,7 +456,7 @@ run_composition_function (from, to, prop)
     to = end;
   if (!NILP (func))
     call2 (func, make_number (from), make_number (to));
-  else if (Ffboundp (Vcompose_chars_after_function))
+  else if (!NILP (Ffboundp (Vcompose_chars_after_function)))
     call2 (Vcompose_chars_after_function,
            make_number (from), make_number (to));
 }
@@ -670,7 +670,7 @@ syms_of_composite ()
 
   /* Make a hash table for composition.  */
   {
-    Lisp_Object args[6], nargs;
+    Lisp_Object args[6];
     extern Lisp_Object QCsize;
     
     args[0] = QCtest;
@@ -679,8 +679,7 @@ syms_of_composite ()
     args[3] = Qnil;
     args[4] = QCsize;
     args[5] = make_number (311);
-    XSETINT (nargs, 6);
-    composition_hash_table = Fmake_hash_table (nargs, args);
+    composition_hash_table = Fmake_hash_table (6, args);
     staticpro (&composition_hash_table);
   }