diff options
| author | Eli Zaretskii | 2016-11-21 18:22:10 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2016-11-21 18:22:10 +0200 |
| commit | 9d302640bed594c8c88cc78b506bef063e1e95fe (patch) | |
| tree | e214cd12ef65bebda7e05deaa7c6f1db08e2f9fb /lisp | |
| parent | a725592db8824bb97d07e3897e800eee946757a3 (diff) | |
| download | emacs-9d302640bed594c8c88cc78b506bef063e1e95fe.tar.gz emacs-9d302640bed594c8c88cc78b506bef063e1e95fe.zip | |
Fix menu bindings of Dired 'A' and 'Q' commands
* lisp/dired.el (dired-mode-map): Rebind "Search Files" and "Query
Replace in Files" menu items to 'dired-do-find-regexp' and
'dired-do-find-regexp-and-replace', respectively. (Bug#24977)
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/dired.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index a4cb50533f2..2957a4aadc8 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -1829,11 +1829,11 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST." | |||
| 1829 | '("--")) | 1829 | '("--")) |
| 1830 | 1830 | ||
| 1831 | (define-key map [menu-bar operate query-replace] | 1831 | (define-key map [menu-bar operate query-replace] |
| 1832 | '(menu-item "Query Replace in Files..." dired-do-query-replace-regexp | 1832 | '(menu-item "Query Replace in Files..." dired-do-find-regexp-and-replace |
| 1833 | :help "Replace regexp in marked files")) | 1833 | :help "Replace regexp matches in marked files")) |
| 1834 | (define-key map [menu-bar operate search] | 1834 | (define-key map [menu-bar operate search] |
| 1835 | '(menu-item "Search Files..." dired-do-search | 1835 | '(menu-item "Search Files..." dired-do-find-regexp |
| 1836 | :help "Search marked files for regexp")) | 1836 | :help "Search marked files for matches of regexp")) |
| 1837 | (define-key map [menu-bar operate isearch-regexp] | 1837 | (define-key map [menu-bar operate isearch-regexp] |
| 1838 | '(menu-item "Isearch Regexp Files..." dired-do-isearch-regexp | 1838 | '(menu-item "Isearch Regexp Files..." dired-do-isearch-regexp |
| 1839 | :help "Incrementally search marked files for regexp")) | 1839 | :help "Incrementally search marked files for regexp")) |