/[emacs]/emacs/lisp/locate.el
ViewVC logotype

Diff of /emacs/lisp/locate.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by gerd, Fri Sep 7 13:32:45 2001 UTC revision 1.17 by rms, Sat Nov 17 15:38:59 2001 UTC
# Line 199  With prefix arg, prompt for the locate c Line 199  With prefix arg, prompt for the locate c
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))

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26