procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(dired-isearch-filenames)

Browse source 
(dired-isearch-filenames-regexp):
Let-bind isearch-message-prefix-add to "filename ".
This commit is contained in:
Juri Linkov 2008-11-11 20:14:38 +00:00
parent ee9b85a84a
commit 978d723ed9
2 changed files with 37 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
lisp/ChangeLog
View file

@ -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

6
lisp/dired-aux.el
View file

@ -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)))