diff options
| author | Glenn Morris | 2011-03-02 09:12:43 -0800 |
|---|---|---|
| committer | Glenn Morris | 2011-03-02 09:12:43 -0800 |
| commit | dbb17c4e2a2a6283647cb7be5b1169d572ef417a (patch) | |
| tree | f0c97d5473e37b81e46c737e5dd5192ca3aed1b5 /lisp | |
| parent | e1a135a9ebc03eff6a3fea84a7196ecc00cf7d0f (diff) | |
| download | emacs-dbb17c4e2a2a6283647cb7be5b1169d572ef417a.tar.gz emacs-dbb17c4e2a2a6283647cb7be5b1169d572ef417a.zip | |
Fix previous dired-x.el change.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/dired-x.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 94398687d11..d71212e5dcb 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el | |||
| @@ -735,9 +735,9 @@ If none, return `default-directory'." | |||
| 735 | ((eq major-mode 'dired-mode) (dired-get-filename t t)))) | 735 | ((eq major-mode 'dired-mode) (dired-get-filename t t)))) |
| 736 | current-prefix-arg | 736 | current-prefix-arg |
| 737 | shell-command-default-error-buffer)) | 737 | shell-command-default-error-buffer)) |
| 738 | (let ((default-directory (if (eq major-mode 'dired-mode) | 738 | (let ((default-directory (or (and (eq major-mode 'dired-mode) |
| 739 | (dired-current-directory) | 739 | (dired-current-directory)) |
| 740 | default-directory))) | 740 | default-directory))) |
| 741 | (shell-command command output-buffer error-buffer))) | 741 | (shell-command command output-buffer error-buffer))) |
| 742 | 742 | ||
| 743 | 743 | ||