Mercurial > emacs
comparison lisp/locate.el @ 49597:e88404e8f2cf
Trailing whitespace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 12:29:42 +0000 |
| parents | c427880038a5 |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49596:b06535145619 | 49597:e88404e8f2cf |
|---|---|
| 198 (concat (car locate-cmd) " " | 198 (concat (car locate-cmd) " " |
| 199 (mapconcat 'identity (cdr locate-cmd) " ")) | 199 (mapconcat 'identity (cdr locate-cmd) " ")) |
| 200 (+ 2 (length (car locate-cmd)))) | 200 (+ 2 (length (car locate-cmd)))) |
| 201 nil nil 'locate-history-list)) | 201 nil nil 'locate-history-list)) |
| 202 (let* ((default (locate-word-at-point)) | 202 (let* ((default (locate-word-at-point)) |
| 203 (input | 203 (input |
| 204 (read-from-minibuffer | 204 (read-from-minibuffer |
| 205 (if (> (length default) 0) | 205 (if (> (length default) 0) |
| 206 (format "Locate (default `%s'): " default) | 206 (format "Locate (default `%s'): " default) |
| 207 (format "Locate: ")) | 207 (format "Locate: ")) |
| 208 nil nil nil 'locate-history-list default t))) | 208 nil nil nil 'locate-history-list default t))) |