diff options
author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-07-04 00:34:02 +0000 |
---|---|---|
committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-07-04 00:34:02 +0000 |
commit | f8b4aa4101717e1c0575fab47fc202635798e70e (patch) | |
tree | 233ada036c18c5ff137d39aadff0375abb16ed87 /lisp/vc-dir.el | |
parent | adb4665096b4af669f6622a0fedd7382347779a1 (diff) |
(vc-dir-query-replace-regexp): New function.
(vc-dir-tool-bar-map, vc-dir-menu-map): Bind it.
(vc-dir-mode-map): Likewise
Diffstat (limited to 'lisp/vc-dir.el')
-rw-r--r-- | lisp/vc-dir.el | 31 |
1 files changed, 29 insertions, 2 deletions
diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el index 5beba0be5b..981178a67c 100644 --- a/lisp/vc-dir.el +++ b/lisp/vc-dir.el @@ -156,6 +156,9 @@ See `run-hooks'." :help "Mark the current file or all files in the region")) (define-key map [sepopn] '("--")) + (define-key map [qr] + '(menu-item "Query Replace in Files" vc-dir-query-replace-regexp + :help "Replace 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")) @@ -211,8 +214,7 @@ See `run-hooks'." ext-binding)))) (defvar vc-dir-mode-map - (let ((map (make-keymap))) - (suppress-keymap map) + (let ((map (make-sparse-keymap))) ;; VC commands (define-key map "v" 'vc-next-action) ;; C-x v v (define-key map "=" 'vc-diff) ;; C-x v = @@ -248,6 +250,7 @@ See `run-hooks'." (define-key map [down-mouse-3] 'vc-dir-menu) (define-key map [mouse-2] 'vc-dir-toggle-mark) (define-key map "x" 'vc-dir-hide-up-to-date) + (define-key map "Q" 'vc-dir-query-replace-regexp) ;; Hook up the menu. (define-key map [menu-bar vc-dir-mode] @@ -293,6 +296,8 @@ If `body' uses `event', it should be a variable, map vc-dir-mode-map) (tool-bar-local-item-from-menu 'nonincremental-search-forward "search" map) + (tool-bar-local-item-from-menu 'vc-dir-query-replace-regexp + "search-replace" map vc-dir-mode-map) (tool-bar-local-item-from-menu 'vc-dir-kill-dir-status-process "cancel" map vc-dir-mode-map) (tool-bar-local-item-from-menu 'quit-window "exit" @@ -674,6 +679,28 @@ that share the same state." (interactive) (find-file-other-window (vc-dir-current-file))) +(defun vc-dir-query-replace-regexp (from to &optional delimited) + "Do `query-replace-regexp' of FROM with TO, on all marked files. +If a directory is marked, then use the files displayed for that directory. +Third arg DELIMITED (prefix arg) means replace only word-delimited matches. +If you exit (\\[keyboard-quit], RET or q), you can resume the query replace +with the command \\[tags-loop-continue]." + ;; FIXME: this is almost a copy of `dired-do-replace-regexp'. This + ;; should probably be made generic and used in both places instead of + ;; duplicating it here. + (interactive + (let ((common + (query-replace-read-args + "Query replace regexp in marked files" t t))) + (list (nth 0 common) (nth 1 common) (nth 2 common)))) + (dolist (file (mapcar 'car (vc-dir-marked-only-files-and-states))) + (let ((buffer (get-file-buffer file))) + (if (and buffer (with-current-buffer buffer + buffer-read-only)) + (error "File `%s' is visited read-only" file)))) + (tags-query-replace from to delimited + '(mapcar 'car (vc-dir-marked-only-files-and-states)))) + (defun vc-dir-current-file () (let ((node (ewoc-locate vc-ewoc))) (unless node |