remove redundant assignments

* src/dired.c:
* src/fns.c:
* src/keyboard.c:
* src/process.c:
* src/xdisp.c: Remove redundant assignments after `unbind_to'.

diff --git a/src/dired.c b/src/dired.c
index f603911..b3f880b 100644 (file)
--- a/src/dired.c
+++ b/src/dired.c
@@ -743,7 +743,7 @@ file_name_completion (Lisp_Object file, Lisp_Object dirname, bool all_flag,
 
   UNGCPRO;
   /* This closes the directory.  */
-  bestmatch = unbind_to (count, bestmatch);
+  unbind_to (count, bestmatch);
 
   if (all_flag || NILP (bestmatch))
     return bestmatch;

diff --git a/src/fns.c b/src/fns.c
index 931a083..e275df7 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -2666,7 +2666,7 @@ The normal messages at start and end of loading FILENAME are suppressed.  */)
 
       /* Once loading finishes, don't undo it.  */
       Vautoload_queue = Qt;
-      feature = unbind_to (count, feature);
+      unbind_to (count, feature);
     }
 
   return feature;

diff --git a/src/keyboard.c b/src/keyboard.c
index dcf246f..081a78f 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -3144,7 +3144,7 @@ read_char_1 (bool jump, volatile struct read_char_state *state)
       /* Call the input method.  */
       tem = call1 (Vinput_method_function, c);
 
-      tem = unbind_to (count, tem);
+      unbind_to (count, tem);
 
       /* Restore the saved echoing state
         and this_command_keys state.  */

diff --git a/src/process.c b/src/process.c
index 3ef9ca1..394f719 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -3525,7 +3525,7 @@ network_interface_list (void)
   void *buf = NULL;
   ptrdiff_t buf_size = 512;
   int s;
-  Lisp_Object res;
+  Lisp_Object res = Qnil;
   ptrdiff_t count;
 
   s = socket (AF_INET, SOCK_STREAM | SOCK_CLOEXEC, 0);
@@ -3548,7 +3548,7 @@ network_interface_list (void)
     }
   while (ifconf.ifc_len == buf_size);
 
-  res = unbind_to (count, Qnil);
+  unbind_to (count, Qnil);
   ifreq = ifconf.ifc_req;
   while ((char *) ifreq < (char *) ifconf.ifc_req + ifconf.ifc_len)
     {

diff --git a/src/xdisp.c b/src/xdisp.c
index 0f48534..3230e85 100644 (file)
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -2634,7 +2634,7 @@ safe__call (bool inhibit_quit, ptrdiff_t nargs, Lisp_Object func, va_list ap)
       val = internal_condition_case_n (Ffuncall, nargs, args, Qt,
                                       safe_eval_handler);
       UNGCPRO;
-      val = unbind_to (count, val);
+      unbind_to (count, val);
     }
 
   return val;