diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-09-25 11:09:30 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-09-25 11:09:30 +0000 |
| commit | 991fbc331faac5d98537dc526cace0f928913000 (patch) | |
| tree | a91c59b61eaae6b8e53a95bf1d9330844555b7d4 /lisp/image-dired.el | |
| parent | db99576a910f7804e0abb8b1fa5f4069c4af1c28 (diff) | |
| download | emacs-991fbc331faac5d98537dc526cace0f928913000.tar.gz | |
(image-dired-display-thumbs, image-dired-remove-tag,
image-dired-mark-tagged-files): Use `mapc' rather than `mapcar'.
Diffstat (limited to 'lisp/image-dired.el')
| -rw-r--r-- | lisp/image-dired.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/image-dired.el b/lisp/image-dired.el index c2c2a1476da..dd185ae169f 100644 --- a/lisp/image-dired.el +++ b/lisp/image-dired.el @@ -820,7 +820,7 @@ thumbnail buffer to be selected." (if (not append) (erase-buffer) (goto-char (point-max))) - (mapcar + (mapc (lambda (curr-file) (setq thumb-name (image-dired-thumb-name curr-file)) (if (and (not (file-exists-p thumb-name)) @@ -918,7 +918,7 @@ is an alist in the following form: (if (stringp files) (setq files (list files)) (error "Files must be a string or a list of strings!"))) - (mapcar + (mapc (lambda (file) (goto-char (point-min)) (when (search-forward-regexp @@ -2170,7 +2170,7 @@ matching tags will be marked in the dired buffer." (setq files (append (list (match-string 1)) files))) (kill-buffer buf) ;; Mark files - (mapcar + (mapc ;; I tried using `dired-mark-files-regexp' but it was ;; waaaay to slow. (lambda (curr-file) |