(Fcategory_docstring): Remove unused variable `doc'.

(Fget_unused_category): Remove unused variable
`docstring_vector'.
(Fchar_category_set): Remove unused variables `val', `charset',
`c1' and `c2'.

diff --git a/src/category.c b/src/category.c
index c74b483e7d91f9cafb0513d09cca12c68658ec80..e77d6f3b753bb603cbb773d384bf78f481c61c22 100644 (file)
--- a/src/category.c
+++ b/src/category.c
@@ -110,8 +110,6 @@ DEFUN ("category-docstring", Fcategory_docstring, Scategory_docstring, 1, 2, 0,
   (category, table)
      Lisp_Object category, table;
 {
-  Lisp_Object doc;
-
   CHECK_CATEGORY (category, 0);
   table = check_category_table (table);
 
@@ -128,7 +126,6 @@ to modify; it defaults to the current buffer's category table.")
      Lisp_Object table;
 {
   int i;
-  Lisp_Object docstring_vector;
 
   table = check_category_table (table);
 
@@ -287,10 +284,6 @@ DEFUN ("char-category-set", Fchar_category_set, Schar_category_set, 1, 1, 0,
   (ch)
      Lisp_Object ch;
 {
-  Lisp_Object val;
-  int charset;
-  unsigned char c1, c2;
-
   CHECK_NUMBER (ch, 0);
   return CATEGORY_SET (XFASTINT (ch));
 }