Mercurial > emacs
comparison lisp/filecache.el @ 108346:2ec6d6660253
merge trunk
author | Kenichi Handa <handa@etlken> |
---|---|
date | Fri, 23 Apr 2010 11:17:09 +0900 |
parents | 066c6d53b8b9 |
children | 2b266010d0b7 376148b31b5e |
comparison
equal
deleted
inserted
replaced
108332:7556a311a89c | 108346:2ec6d6660253 |
---|---|
294 | 294 |
295 ;;;###autoload | 295 ;;;###autoload |
296 (defun file-cache-add-directory-list (directory-list &optional regexp) | 296 (defun file-cache-add-directory-list (directory-list &optional regexp) |
297 "Add DIRECTORY-LIST (a list of directory names) to the file cache. | 297 "Add DIRECTORY-LIST (a list of directory names) to the file cache. |
298 If the optional REGEXP argument is non-nil, only files which match it | 298 If the optional REGEXP argument is non-nil, only files which match it |
299 will be added to the cache. Note that the REGEXP is applied to the files | 299 will be added to the cache. Note that the REGEXP is applied to the |
300 in each directory, not to the directory list itself." | 300 files in each directory, not to the directory list itself." |
301 (interactive "XAdd files from directory list: ") | 301 (interactive "XAdd files from directory list: ") |
302 (mapcar | 302 (mapcar |
303 (lambda (dir) (file-cache-add-directory dir regexp)) | 303 (lambda (dir) (file-cache-add-directory dir regexp)) |
304 directory-list)) | 304 directory-list)) |
305 | 305 |
368 (file-cache-add-from-file-cache-buffer)) | 368 (file-cache-add-from-file-cache-buffer)) |
369 | 369 |
370 ;;;###autoload | 370 ;;;###autoload |
371 (defun file-cache-add-directory-recursively (dir &optional regexp) | 371 (defun file-cache-add-directory-recursively (dir &optional regexp) |
372 "Adds DIR and any subdirectories to the file-cache. | 372 "Adds DIR and any subdirectories to the file-cache. |
373 This function does not use any external programs | 373 This function does not use any external programs. |
374 If the optional REGEXP argument is non-nil, only files which match it | 374 If the optional REGEXP argument is non-nil, only files which match it |
375 will be added to the cache. Note that the REGEXP is applied to the files | 375 will be added to the cache. Note that the REGEXP is applied to the |
376 in each directory, not to the directory list itself." | 376 files in each directory, not to the directory list itself." |
377 (interactive "DAdd directory: ") | 377 (interactive "DAdd directory: ") |
378 (require 'find-lisp) | 378 (require 'find-lisp) |
379 (mapcar | 379 (mapcar |
380 (function | 380 (function |
381 (lambda (file) | 381 (lambda (file) |