diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-10-19 22:23:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-10-19 22:23:57 +0000 |
| commit | 172d421c9879fe36192088213b44e509d74c7ba0 (patch) | |
| tree | 3996a7e2383831bc5c08bfbb92fba3927d91e674 /lisp/isearch.el | |
| parent | b153a3f99566141c66b97608d60eff80f576053a (diff) | |
| download | emacs-172d421c9879fe36192088213b44e509d74c7ba0.tar.gz | |
(isearch-message-prefix):
Change "wrapped" to "overwrapped" when past original start point.
Diffstat (limited to 'lisp/isearch.el')
| -rw-r--r-- | lisp/isearch.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 3e74c811170..cd035b08b3e 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -1312,6 +1312,11 @@ If there is no completion possible, say so and continue searching." ;; 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 " "") |