[Emacs-diffs] master 3f24a31: lisp/dired-aux.el (dired-shell-command): Fix compile warning

[Oleh Krehel]

branch: master
commit 3f24a31fb760537e9b9cc994e8431f045d526f4b
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    lisp/dired-aux.el (dired-shell-command): Fix compile warning
---
 lisp/dired-aux.el |   19 +++++++++----------
 lisp/dired.el     |    2 +-
 2 files changed, 10 insertions(+), 11 deletions(-)

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 7469eb9..8c575c6 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 232abf6..14c7f4b 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" "\