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) |