[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/filecache.el,v
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/filecache.el,v |
Date: |
Tue, 25 Sep 2007 11:04:34 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Juanma Barranquero <lektu> 07/09/25 11:04:34
Index: filecache.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/filecache.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- filecache.el 26 Jul 2007 05:26:23 -0000 1.31
+++ filecache.el 25 Sep 2007 11:04:33 -0000 1.32
@@ -280,11 +280,11 @@
(dir-files (directory-files dir t regexp))
)
;; Filter out files we don't want to see
- (mapcar
+ (mapc
'(lambda (file)
(if (file-directory-p file)
(setq dir-files (delq file dir-files))
- (mapcar
+ (mapc
'(lambda (regexp)
(if (string-match regexp file)
(setq dir-files (delq file dir-files))))
@@ -386,7 +386,7 @@
(lambda(file)
(or (file-directory-p file)
(let (filtered)
- (mapcar
+ (mapc
(function
(lambda(regexp)
(and (string-match regexp file)
@@ -402,7 +402,7 @@
Each entry matches the regular expression `file-cache-buffer-default-regexp'
or the optional REGEXP argument."
(set-buffer file-cache-buffer)
- (mapcar
+ (mapc
(function (lambda (elt)
(goto-char (point-min))
(delete-matching-lines elt)))
@@ -443,7 +443,7 @@
"Delete files matching REGEXP from the file cache."
(interactive "sRegexp: ")
(let ((delete-list))
- (mapcar '(lambda (elt)
+ (mapc '(lambda (elt)
(and (string-match regexp (car elt))
(setq delete-list (cons (car elt) delete-list))))
file-cache-alist)
@@ -456,7 +456,7 @@
(interactive "DDelete directory from file cache: ")
(let ((dir (expand-file-name directory))
(result 0))
- (mapcar
+ (mapc
'(lambda (entry)
(if (file-cache-do-delete-directory dir entry)
(setq result (1+ result))))
@@ -719,7 +719,7 @@
"Output a list of files whose names (not including directories)
match REGEXP."
(let ((results))
- (mapcar
+ (mapc
(function
(lambda(cache-element)
(and (string-match regexp
@@ -768,7 +768,7 @@
(with-current-buffer
(get-buffer-create buf)
(erase-buffer)
- (mapcar
+ (mapc
(function
(lambda(item)
(insert (nth 1 item) (nth 0 item) "\n")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/filecache.el,v,
Juanma Barranquero <=