From 3f24a31fb760537e9b9cc994e8431f045d526f4b Mon Sep 17 00:00:00 2001 From: Oleh Krehel Date: Fri, 16 Oct 2015 14:45:22 +0200 Subject: [PATCH] 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 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" "\ -- 2.11.4.GIT