199 |
(mapconcat 'identity (cdr locate-cmd) " ")) |
(mapconcat 'identity (cdr locate-cmd) " ")) |
200 |
(+ 2 (length (car locate-cmd)))) |
(+ 2 (length (car locate-cmd)))) |
201 |
nil nil 'locate-history-list)) |
nil nil 'locate-history-list)) |
202 |
(read-from-minibuffer |
(let* ((default (locate-word-at-point)) |
203 |
"Locate: " |
(input |
204 |
(locate-word-at-point) |
(read-from-minibuffer |
205 |
nil nil 'locate-history-list) |
(if (> (length default) 0) |
206 |
))) |
(format "Locate (default `%s'): " default) |
207 |
|
(format "Locate: ")) |
208 |
|
nil nil nil 'locate-history-list default t))) |
209 |
|
(and (equal input "") default |
210 |
|
(setq input default)) |
211 |
|
input)))) |
212 |
|
(if (equal search-string "") |
213 |
|
(error "Please specify a filename to search for.")) |
214 |
(let* ((locate-cmd-list (funcall locate-make-command-line search-string)) |
(let* ((locate-cmd-list (funcall locate-make-command-line search-string)) |
215 |
(locate-cmd (car locate-cmd-list)) |
(locate-cmd (car locate-cmd-list)) |
216 |
(locate-cmd-args (cdr locate-cmd-list)) |
(locate-cmd-args (cdr locate-cmd-list)) |