changeset 25738:4b5b9289f6d8

(read_minibuf): Remove unused variables. (read_minibuf, Fread_buffer, scmp, Fcompleting_read): Ditto. (do_completion): Move assignment out of conditional context. (Fdisplay_completion_list): Add parentheses to conditional expression.

--- a/src/minibuf.c	Thu Sep 16 12:52:18 1999 +0000
+++ b/src/minibuf.c	Thu Sep 16 12:52:20 1999 +0000
@@ -248,7 +248,7 @@
   Lisp_Object mini_frame, ambient_dir, minibuffer, input_method;
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
   Lisp_Object enable_multibyte;
-  extern Lisp_Object Qinvisible, Qintangible, Qread_only, Qfront_sticky;
+  extern Lisp_Object Qread_only, Qfront_sticky;
   extern Lisp_Object Qrear_nonsticky;
 
   specbind (Qminibuffer_default, defalt);
@@ -512,7 +512,6 @@
   if (expflag)
     {
       Lisp_Object expr_and_pos;
-      unsigned char *p;
       int pos;
 
       if (STRINGP (val) && XSTRING (val)->size == 0
@@ -891,7 +890,6 @@
   (prompt, def, require_match)
      Lisp_Object prompt, def, require_match;
 {
-  Lisp_Object tem;
   Lisp_Object args[4];
   
   if (BUFFERP (def))
@@ -1158,7 +1156,6 @@
      int len;
 {
   register int l = len;
-  register unsigned char *start = s1;
 
   if (completion_ignore_case)
     {
@@ -1374,7 +1371,6 @@
   int pos = 0;
   int count = specpdl_ptr - specpdl;
   struct gcpro gcpro1;
-  int disable_multibyte = ! NILP (Vminibuffer_completing_file_name); 
 
   GCPRO1 (def);
 
@@ -1512,7 +1508,8 @@
 
   /* compiler bug */
   tem = Fstring_equal (completion, Fbuffer_string());
-  if (completedp = NILP (tem))
+  completedp = NILP (tem);
+  if (completedp)
     {
       Ferase_buffer ();		/* Some completion happened */
       Finsert (1, &completion);
@@ -1941,7 +1938,7 @@
 	     don't put another on the same line.  */
 	  if (column > 33 || first
 	      /* If this is really wide, don't put it second on a line.  */
-	      || column > 0 && length > 45)
+	      || (column > 0 && length > 45))
 	    {
 	      Fterpri (Qnil);
 	      column = 0;