mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(image-dired-display-thumbs, image-dired-remove-tag,

Browse Source 
image-dired-mark-tagged-files): Use `mapc' rather than `mapcar'.
This commit is contained in:
Juanma Barranquero 2007-09-25 11:09:30 +00:00
parent db99576a91
commit 991fbc331f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/image-dired.el
View File

@ -820,7 +820,7 @@ thumbnail buffer to be selected."
(if (not append) (if (not append)
(erase-buffer) (erase-buffer)
(goto-char (point-max))) (goto-char (point-max)))
(mapcar (mapc
(lambda (curr-file) (lambda (curr-file)
(setq thumb-name (image-dired-thumb-name curr-file)) (setq thumb-name (image-dired-thumb-name curr-file))
(if (and (not (file-exists-p thumb-name)) (if (and (not (file-exists-p thumb-name))
@ -918,7 +918,7 @@ is an alist in the following form:
(if (stringp files) (if (stringp files)
(setq files (list files)) (setq files (list files))
(error "Files must be a string or a list of strings!"))) (error "Files must be a string or a list of strings!")))
(mapcar (mapc
(lambda (file) (lambda (file)
(goto-char (point-min)) (goto-char (point-min))
(when (search-forward-regexp (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))) (setq files (append (list (match-string 1)) files)))
(kill-buffer buf) (kill-buffer buf)
;; Mark files ;; Mark files
(mapcar (mapc
;; I tried using `dired-mark-files-regexp' but it was ;; I tried using `dired-mark-files-regexp' but it was
;; waaaay to slow. ;; waaaay to slow.
(lambda (curr-file) (lambda (curr-file)