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

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 7469eb96364a19c59f30ce83770d953cbff77c4f..8c575c6b12e6e2d2127c399b7cc269d86804ed36 100644 (file)
--- 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))))))
 \f
 ;; Commands that delete or redisplay part of the dired buffer.
 

diff --git a/lisp/dired.el b/lisp/dired.el
index 232abf67cc6faaedd05fdda42440d325db4ee513..14c7f4bdf487ef9edfa00d54ed01759340b192d4 100644 (file)
--- 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."
 \f
 ;;; Start of automatically extracted autoloads.
 \f
-;;;### (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" "\