[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/filecache.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/filecache.el |
Date: |
Fri, 04 Apr 2003 01:22:07 -0500 |
Index: emacs/lisp/filecache.el
diff -c emacs/lisp/filecache.el:1.15 emacs/lisp/filecache.el:1.16
*** emacs/lisp/filecache.el:1.15 Fri Jan 31 10:16:23 2003
--- emacs/lisp/filecache.el Sat Mar 22 07:43:50 2003
***************
*** 63,68 ****
--- 63,71 ----
;; * `file-cache-add-directory-using-locate': Uses the `locate' command to
;; add files matching a pattern to the cache.
;;
+ ;; * `file-cache-add-directory-recursively': Uses the find-lisp package to
+ ;; add all files matching a pattern to the cache.
+ ;;
;; Use the function `file-cache-clear-cache' to remove all items from the
;; cache. There are a number of `file-cache-delete' functions provided
;; as well, but in general it is probably better to not worry too much
***************
*** 138,143 ****
--- 141,149 ----
;;; Code:
+ (eval-when-compile
+ (require 'find-lisp))
+
(defgroup file-cache nil
"Find files using a pre-loaded cache."
:group 'files
***************
*** 338,343 ****
--- 344,373 ----
string)
(file-cache-add-from-file-cache-buffer))
+ (defun file-cache-add-directory-recursively (dir &optional regexp)
+ "Adds DIR and any subdirectories to the file-cache.
+ This function does not use any external programs
+ If the optional REGEXP argument is non-nil, only files which match it
+ will be added to the cache. Note that the REGEXP is applied to the files
+ in each directory, not to the directory list itself."
+ (interactive "DAdd directory: ")
+ (require 'find-lisp)
+ (mapcar
+ (function
+ (lambda(file)
+ (or (file-directory-p file)
+ (let (filtered)
+ (mapcar
+ (function
+ (lambda(regexp)
+ (and (string-match regexp file)
+ (setq filtered t))
+ ))
+ file-cache-filter-regexps)
+ filtered)
+ (file-cache-add-file file))))
+ (find-lisp-find-files dir (if regexp regexp "^"))))
+
(defun file-cache-add-from-file-cache-buffer (&optional regexp)
"Add any entries found in the file cache buffer.
Each entry matches the regular expression `file-cache-buffer-default-regexp'
***************
*** 625,630 ****
--- 655,684 ----
)
)
+ (defun file-cache-complete ()
+ "Complete the word at point, using the filecache."
+ (interactive)
+ (let (start pattern completion all)
+ (save-excursion
+ (skip-syntax-backward "^\"")
+ (setq start (point)))
+ (setq pattern (buffer-substring-no-properties start (point)))
+ (setq completion (try-completion pattern file-cache-alist))
+ (setq all (all-completions pattern file-cache-alist nil))
+ (cond ((eq completion t))
+ ((null completion)
+ (message "Can't find completion for \"%s\"" pattern)
+ (ding))
+ ((not (string= pattern completion))
+ (delete-region start (point))
+ (insert completion)
+ )
+ (t
+ (with-output-to-temp-buffer "*Completions*"
+ (display-completion-list all))
+ ))
+ ))
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Show parts of the cache
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
***************
*** 673,678 ****
--- 727,747 ----
(list (completing-read "File Cache: " file-cache-alist)))
(message "%s" (funcall file-cache-assoc-function file file-cache-alist))
)
+
+ (defun file-cache-display ()
+ "Display the file cache."
+ (interactive)
+ (let ((buf "*File Cache Contents*"))
+ (with-current-buffer
+ (get-buffer-create buf)
+ (erase-buffer)
+ (mapcar
+ (function
+ (lambda(item)
+ (insert (nth 1 item) (nth 0 item) "\n")))
+ file-cache-alist)
+ (pop-to-buffer buf)
+ )))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Keybindings
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/filecache.el,
Miles Bader <=