/[emacs]/emacs/lisp/isearch.el
ViewVC logotype

Diff of /emacs/lisp/isearch.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.228 by rms, Sun Jun 6 13:57:39 2004 UTC revision 1.229 by rms, Mon Jun 21 03:15:43 2004 UTC
# Line 999  Use `isearch-exit' to quit without signa Line 999  Use `isearch-exit' to quit without signa
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.
# Line 1764  If there is no completion possible, say Line 1765  If there is no completion possible, say
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
# Line 1811  If there is no completion possible, say Line 1818  If there is no completion possible, say
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.

Legend:
Removed from v.1.228  
changed lines
  Added in v.1.229

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26