[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 3f24a31: lisp/dired-aux.el (dired-shell-command): F
From: |
Oleh Krehel |
Subject: |
[Emacs-diffs] master 3f24a31: lisp/dired-aux.el (dired-shell-command): Fix compile warning |
Date: |
Fri, 16 Oct 2015 12:46:51 +0000 |
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" "\
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 3f24a31: lisp/dired-aux.el (dired-shell-command): Fix compile warning,
Oleh Krehel <=