Mercurial > emacs
changeset 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 | a8126303dc0f |
| children | 9e94f911f00c |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Thu Oct 19 22:04:18 1995 +0000 +++ b/lisp/isearch.el Thu Oct 19 22:23:57 1995 +0000 @@ -1312,6 +1312,11 @@ ;; If currently failing, display no ellipsis. (or isearch-success (setq ellipsis nil)) (let ((m (concat (if isearch-success "" "failing ") + (if (and isearch-wrapped + (if isearch-forward + (> (point) isearch-opoint) + (< (point) isearch-opoint))) + "over") (if isearch-wrapped "wrapped ") (if isearch-word "word " "") (if isearch-regexp "regexp " "")