lisp/dired-aux.el (dired-shell-command): Fix compile warning

2 files changed, 10 insertions, 11 deletions

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 7469eb96364..8c575c6b12e 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -792,16 +792,15 @@ On error, pop up the log buffer."
   (let ((out-buffer " *dired-check-process output*"))
     (with-current-buffer (get-buffer-create out-buffer)
       (erase-buffer)
-      (setq res
-            (process-file
-             shell-file-name
-             nil
-             t
-             nil
-             shell-command-switch
-             cmd)))
-    (unless (zerop res)
-      (pop-to-buffer out-buffer))))
+      (let ((res (process-file
+                  shell-file-name
+                  nil
+                  t
+                  nil
+                  shell-command-switch
+                  cmd)))
+        (unless (zerop res)
+          (pop-to-buffer out-buffer))))))
 
 ;; Commands that delete or redisplay part of the dired buffer.
 
diff --git a/lisp/dired.el b/lisp/dired.el
index 232abf67cc6..14c7f4bdf48 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -3896,7 +3896,7 @@ Ask means pop up a menu for the user to select one of copy, move or link."
 
 ;;; Start of automatically extracted autoloads.
 
-;;;### (autoloads nil "dired-aux" "dired-aux.el" "9565afd70e820a750c6452d45776005d")
+;;;### (autoloads nil "dired-aux" "dired-aux.el" "3921477843dc9d08d6896f07f90e8c6e")
 ;;; Generated autoloads from dired-aux.el
 
 (autoload 'dired-diff "dired-aux" "\