(dired-isearch-filenames)

(dired-isearch-filenames-regexp):
Let-bind isearch-message-prefix-add to "filename ".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7fba1983f9ccae285076cf3ebeaf63b5dbb6600b..935fa82b10d5e073f28cbbd8d611ecb489f9a912 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,36 @@
+2008-11-11  Juri Linkov  <juri@jurta.org>
+
+       * dired-aux.el (dired-isearch-filenames)
+       (dired-isearch-filenames-regexp):
+       Let-bind isearch-message-prefix-add to "filename ".
+
+       * isearch.el (isearch-message-prefix-add)
+       (isearch-message-suffix-add): New variables.
+       (isearch-message-prefix): Show additional text from
+       `isearch-message-prefix-add' before "I-search".
+       (isearch-message-suffix): Show additional text from
+       `isearch-message-suffix-add' at the end.
+
+       * isearch.el (isearch-lazy-highlight-search): Use a loop like in
+       `isearch-search'.  Call isearch-success-function to skip matches
+       outside the current isearch scope.  Let-bind search-invisible to
+       nil to not match invisible text.
+
+       * isearch.el (isearch-query-replace, isearch-highlight-regexp):
+       Let-bind `isearch-recursive-edit' to nil to prevent calling
+       `exit-recursive-edit' in `isearch-done' that terminates the
+       execution of these commands when it is non-nil.  Call
+       `exit-recursive-edit' explicitly at the end.
+       (isearch-occur): For word search construct the correct regexp
+       with word boundaries to proceed with occur.
+
+       * isearch.el (isearch-search-fun): Compare the length of the
+       current search string with the length of the string from the
+       previous search state to detect the situation when the user
+       adds or removes characters in the search string.
+       Use word-search-forward-lax and word-search-backward-lax in this
+       case, and otherwise word-search-forward and word-search-backward.
+
 2008-11-11  Sam Steingold  <sds@gnu.org>
 
        * mouse.el (mouse-buffer-menu-mode-groups): Place "Annotate" into

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 26d5ce4ec677be93ab4408776f29ad59c7e62c32..930c4e32340c53675d4f4bc64139e30208d6879b 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -2355,14 +2355,16 @@ Intended to be added to `isearch-mode-hook'."
 (defun dired-isearch-filenames ()
   "Search for a string using Isearch only in file names in the Dired buffer."
   (interactive)
-  (let ((dired-isearch-filenames t))
+  (let ((dired-isearch-filenames t)
+       (isearch-message-prefix-add "filename "))
     (isearch-forward)))
 
 ;;;###autoload
 (defun dired-isearch-filenames-regexp ()
   "Search for a regexp using Isearch only in file names in the Dired buffer."
   (interactive)
-  (let ((dired-isearch-filenames t))
+  (let ((dired-isearch-filenames t)
+       (isearch-message-prefix-add "filename "))
     (isearch-forward-regexp)))
 
 \f