diff options
| author | Juri Linkov | 2010-05-28 22:18:47 +0300 |
|---|---|---|
| committer | Juri Linkov | 2010-05-28 22:18:47 +0300 |
| commit | 0040735a56036641be0ed2fe1d3b954bbd5b4765 (patch) | |
| tree | bff36e902462ec04ab57bf2c4dfb00c703886809 | |
| parent | f5783df3a76e578791965f852b9190235507556c (diff) | |
| download | emacs-0040735a56036641be0ed2fe1d3b954bbd5b4765.tar.gz emacs-0040735a56036641be0ed2fe1d3b954bbd5b4765.zip | |
* image-dired.el (image-dired-dired-toggle-marked-thumbs):
Replace LOCALP arg of `dired-get-filename' 'no-dir with nil.
(Bug#5270)
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/image-dired.el | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bd7ded3a038..8dc505c4734 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2010-05-28 Juri Linkov <juri@jurta.org> | ||
| 2 | |||
| 3 | * image-dired.el (image-dired-dired-toggle-marked-thumbs): | ||
| 4 | Replace LOCALP arg of `dired-get-filename' 'no-dir with nil. | ||
| 5 | (Bug#5270) | ||
| 6 | |||
| 1 | 2010-05-28 Michael Albinus <michael.albinus@gmx.de> | 7 | 2010-05-28 Michael Albinus <michael.albinus@gmx.de> |
| 2 | 8 | ||
| 3 | * net/tramp.el (tramp-debug-message): Add `tramp-compat-funcall' | 9 | * net/tramp.el (tramp-debug-message): Add `tramp-compat-funcall' |
diff --git a/lisp/image-dired.el b/lisp/image-dired.el index 220ad69130e..a74ddd312d5 100644 --- a/lisp/image-dired.el +++ b/lisp/image-dired.el | |||
| @@ -642,7 +642,7 @@ previous -ARG, if ARG<0) files." | |||
| 642 | (interactive "P") | 642 | (interactive "P") |
| 643 | (dired-map-over-marks | 643 | (dired-map-over-marks |
| 644 | (let* ((image-pos (dired-move-to-filename)) | 644 | (let* ((image-pos (dired-move-to-filename)) |
| 645 | (image-file (dired-get-filename 'no-dir t)) | 645 | (image-file (dired-get-filename nil t)) |
| 646 | thumb-file | 646 | thumb-file |
| 647 | overlay) | 647 | overlay) |
| 648 | (when (and image-file (string-match-p (image-file-name-regexp) image-file)) | 648 | (when (and image-file (string-match-p (image-file-name-regexp) image-file)) |