999 |
|
|
1000 |
(if (equal isearch-string "") |
(if (equal isearch-string "") |
1001 |
(setq isearch-success t) |
(setq isearch-success t) |
1002 |
(if (and isearch-success (equal (match-end 0) (match-beginning 0)) |
(if (and isearch-success |
1003 |
|
(equal (point) isearch-other-end) |
1004 |
(not isearch-just-started)) |
(not isearch-just-started)) |
1005 |
;; If repeating a search that found |
;; If repeating a search that found |
1006 |
;; an empty string, ensure we advance. |
;; an empty string, ensure we advance. |
1765 |
(let ((cursor-in-echo-area ellipsis) |
(let ((cursor-in-echo-area ellipsis) |
1766 |
(m (concat |
(m (concat |
1767 |
(isearch-message-prefix c-q-hack ellipsis isearch-nonincremental) |
(isearch-message-prefix c-q-hack ellipsis isearch-nonincremental) |
1768 |
isearch-message |
(if (and (not isearch-success) |
1769 |
|
(string-match " +$" isearch-message)) |
1770 |
|
(concat |
1771 |
|
(substring isearch-message 0 (match-beginning 0)) |
1772 |
|
(propertize (substring isearch-message (match-beginning 0)) |
1773 |
|
'face 'trailing-whitespace)) |
1774 |
|
isearch-message) |
1775 |
(isearch-message-suffix c-q-hack ellipsis) |
(isearch-message-suffix c-q-hack ellipsis) |
1776 |
))) |
))) |
1777 |
(if c-q-hack |
(if c-q-hack |
1818 |
|
|
1819 |
;; Searching |
;; Searching |
1820 |
|
|
1821 |
(defvar isearch-search-fun-function nil "Override `isearch-function-fun'.") |
(defvar isearch-search-fun-function nil |
1822 |
|
"Override `isearch-search-fun'. |
1823 |
|
This function should return the search function for isearch to use. |
1824 |
|
It will call this function with three arguments |
1825 |
|
as if it were `search-forward'.") |
1826 |
|
|
1827 |
(defun isearch-search-fun () |
(defun isearch-search-fun () |
1828 |
"Return the function to use for the search. |
"Return the function to use for the search. |