Mercurial > emacs
comparison lisp/isearch.el @ 13254:7ed0775e99af
(isearch-message-prefix):
Change "wrapped" to "overwrapped" when past original start point.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 19 Oct 1995 22:23:57 +0000 |
| parents | 7c5e73b8aa04 |
| children | 108ac303b3e5 |
comparison
equal
deleted
inserted
replaced
| 13253:a8126303dc0f | 13254:7ed0775e99af |
|---|---|
| 1310 isearch-within-brackets nil)) | 1310 isearch-within-brackets nil)) |
| 1311 (error nil))) | 1311 (error nil))) |
| 1312 ;; If currently failing, display no ellipsis. | 1312 ;; If currently failing, display no ellipsis. |
| 1313 (or isearch-success (setq ellipsis nil)) | 1313 (or isearch-success (setq ellipsis nil)) |
| 1314 (let ((m (concat (if isearch-success "" "failing ") | 1314 (let ((m (concat (if isearch-success "" "failing ") |
| 1315 (if (and isearch-wrapped | |
| 1316 (if isearch-forward | |
| 1317 (> (point) isearch-opoint) | |
| 1318 (< (point) isearch-opoint))) | |
| 1319 "over") | |
| 1315 (if isearch-wrapped "wrapped ") | 1320 (if isearch-wrapped "wrapped ") |
| 1316 (if isearch-word "word " "") | 1321 (if isearch-word "word " "") |
| 1317 (if isearch-regexp "regexp " "") | 1322 (if isearch-regexp "regexp " "") |
| 1318 (if nonincremental "search" "I-search") | 1323 (if nonincremental "search" "I-search") |
| 1319 (if isearch-forward ": " " backward: ") | 1324 (if isearch-forward ": " " backward: ") |