/[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.19 by pj, Tue Dec 25 11:05:26 2001 UTC revision 1.19.4.1 by miles, Fri Apr 4 06:20:09 2003 UTC
# Line 200  With prefix arg, prompt for the locate c Line 200  With prefix arg, prompt for the locate c
200                         (+ 2 (length (car locate-cmd))))                         (+ 2 (length (car locate-cmd))))
201                nil nil 'locate-history-list))                nil nil 'locate-history-list))
202           (let* ((default (locate-word-at-point))           (let* ((default (locate-word-at-point))
203                 (input                 (input
204                  (read-from-minibuffer                  (read-from-minibuffer
205                   (if  (> (length default) 0)                   (if  (> (length default) 0)
206                       (format "Locate (default `%s'): " default)                       (format "Locate (default `%s'): " default)

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.19.4.1

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