mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-18 10:16:51 +00:00
Code Issues Releases Activity

(vc-dir-search, vc-dir-isearch)

Browse Source 
(vc-dir-isearch-regexp): New functions.
(vc-dir-mode-map, vc-dir-menu-map): Bind them.
This commit is contained in:
Dan Nicolaescu 2008-07-24 02:39:04 +00:00
parent 834d998e39
commit ba7e37c8d7
2 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,7 +1,8 @@
2008-07-24 Dan Nicolaescu <dann@ics.uci.edu>
* vc-dir.el (vc-dir-search): New function.
(vc-dir-mode-map, vc-dir-menu-map): Bind it.
* vc-dir.el (vc-dir-search, vc-dir-isearch)
(vc-dir-isearch-regexp): New functions.
(vc-dir-mode-map, vc-dir-menu-map): Bind them.
2008-07-23 Juri Linkov <juri@jurta.org>

24
lisp/vc-dir.el
View File

@ -157,11 +157,17 @@ See `run-hooks'."
(define-key map [sepopn] '("--"))
(define-key map [qr]
'(menu-item "Query Replace in Files" vc-dir-query-replace-regexp
'(menu-item "Query Replace in Files..." vc-dir-query-replace-regexp
:help "Replace a string in the marked files"))
(define-key map [se]
'(menu-item "Search Files" vc-dir-search
'(menu-item "Search Files..." vc-dir-search
:help "Search a regexp in the marked files"))
(define-key map [ires]
'(menu-item "Isearch Regexp Files..." vc-dir-isearch-regexp
:help "Incremental search a regexp in the marked files"))
(define-key map [ise]
'(menu-item "Isearch Files..." vc-dir-isearch
:help "Incremental search a string in the marked files"))
(define-key map [open-other]
'(menu-item "Open in other window" vc-dir-find-file-other-window
:help "Find the file on the current line, in another window"))
@ -255,6 +261,8 @@ See `run-hooks'."
(define-key map "x" 'vc-dir-hide-up-to-date)
(define-key map "S" 'vc-dir-search) ;; FIXME: Maybe use A like dired?
(define-key map "Q" 'vc-dir-query-replace-regexp)
(define-key map (kbd "M-s a C-s") 'vc-dir-isearch)
(define-key map (kbd "M-s a M-C-s") 'vc-dir-isearch-regexp)
;; Hook up the menu.
(define-key map [menu-bar vc-dir-mode]
@ -683,6 +691,18 @@ that share the same state."
(interactive)
(find-file-other-window (vc-dir-current-file)))
(defun vc-dir-isearch ()
"Search for a string through all marked buffers using Isearch."
(interactive)
(multi-isearch-files
(mapcar 'car (vc-dir-marked-only-files-and-states))))
(defun vc-dir-isearch-regexp ()
"Search for a regexp through all marked buffers using Isearch."
(interactive)
(multi-isearch-files-regexp
(mapcar 'car (vc-dir-marked-only-files-and-states))))
(defun vc-dir-search (regexp)
"Search through all marked files for a match for REGEXP.
For marked directories, use the files displayed from those directories.