Mercurial > emacs
changeset 97062:a84502b647f0
(dired-mode-map): Bind dired-do-isearch to `M-s a C-s'
and dired-do-isearch-regexp to `M-s a M-C-s'. Add menu items.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Mon, 28 Jul 2008 14:29:22 +0000 |
| parents | 2104d5663cdd |
| children | cf48c47a475c |
| files | lisp/dired.el |
| diffstat | 1 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired.el Mon Jul 28 14:28:59 2008 +0000 +++ b/lisp/dired.el Mon Jul 28 14:29:22 2008 +0000 @@ -1295,6 +1295,9 @@ ;; hiding (define-key map "$" 'dired-hide-subdir) (define-key map "\M-$" 'dired-hide-all) + ;; isearch + (define-key map (kbd "M-s a C-s") 'dired-do-isearch) + (define-key map (kbd "M-s a M-C-s") 'dired-do-isearch-regexp) ;; misc (define-key map "\C-x\C-q" 'dired-toggle-read-only) (define-key map "?" 'dired-summary) @@ -1560,6 +1563,12 @@ (define-key map [menu-bar operate search] '(menu-item "Search Files..." dired-do-search :help "Search marked files for regexp")) + (define-key map [menu-bar operate isearch-regexp] + '(menu-item "Isearch Regexp Files..." dired-do-isearch-regexp + :help "Incrementally search marked files for regexp")) + (define-key map [menu-bar operate isearch] + '(menu-item "Isearch Files..." dired-do-isearch + :help "Incrementally search marked files for string")) (define-key map [menu-bar operate chown] '(menu-item "Change Owner..." dired-do-chown :visible (not (memq system-type '(ms-dos windows-nt)))