Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |