[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[patch] 21.3 filecache.el - Use executable.el executable-command-find-un
From: |
Jari Aalto+mail.linux |
Subject: |
[patch] 21.3 filecache.el - Use executable.el executable-command-find-unix-p |
Date: |
Tue, 27 Jan 2004 15:10:54 +0200 |
User-agent: |
Gnus/5.1003 (Gnus v5.10.3) Emacs/20.7 (windows-nt) (i386-*-nt5.0.2195) |
This patch supposes, that executable.el has been patched for new
function.
2004-01-27 Jari Aalto <jaalto@w2kpicasso>
* filecache.el
(top level): Added autoload for `executable-command-find-unix-p'
(file-cache-find-unix-p): Removed.
Moved to executable.el
(file-cache-add-directory-using-find): Use
`executable-command-find-unix-p'
Index: filecache.el
===================================================================
RCS file:
/cygdrive/h/data/version-control/cvsroot/emacs/gnu-emacs/lisp213/filecache.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -IId: -b -w -u -r1.7 -r1.8
--- filecache.el 26 Jan 2004 19:16:23 -0000 1.7
+++ filecache.el 27 Jan 2004 13:07:32 -0000 1.8
@@ -139,6 +139,8 @@
;;; Code:
+(autoload 'executable-command-find-unix-p "executable")
+
(defgroup file-cache nil
"Find files using a pre-loaded cache."
:group 'files
@@ -327,36 +329,14 @@
file-cache-alist)))
)))
-(defun file-cache-find-unix-p ()
- "Check if `file-cache-find-command' is Unix type program."
- ;; Pick file to search from location we know
- (let* ((dir (car load-path))
- (file (find-if
- (lambda (x)
- ;; Filter directories . and ..
- (not (string-match "^\\.\\.?$" x)))
- (directory-files dir))))
- (with-temp-buffer
- (call-process file-cache-find-command
- nil
- (current-buffer)
- nil
- dir
- "-name"
- file
- "-maxdepth"
- "1")
- (goto-char (point-min))
- (if (search-forward file nil t)
- t))))
-
(defun file-cache-add-directory-using-find (directory)
"Use the `find' command to add files to the file cache.
Find is run in DIRECTORY."
(interactive "DAdd files under directory: ")
(let ((dir (expand-file-name directory)))
(if (eq file-cache-find-command-unix-flag 'not-defined)
- (setq file-cache-find-command-unix-flag (file-cache-find-unix-p)))
+ (setq file-cache-find-command-unix-flag
+ (executable-command-find-unix-p file-cache-find-command)))
(set-buffer (get-buffer-create file-cache-buffer))
(erase-buffer)
(call-process file-cache-find-command nil
--
http://tiny-tools.sourceforge.net/
Swatch @time http://www.mir.com.my/iTime/itime.htm
http://www.ryanthiessen.com/swatch/resources.htm
Use Licenses! http://www.linuxjournal.com/article.php?sid=6225
Which Licence? http://www.linuxjournal.com/article.php?sid=4825
OSI Licences http://www.opensource.org/licenses/
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [patch] 21.3 filecache.el - Use executable.el executable-command-find-unix-p,
Jari Aalto+mail.linux <=