mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(filesets-commands): Add commands for "Isearch" and

Browse Source 
"Isearch (regexp)".  Replace `query-replace' and `query-replace-regexp'
with `perform-replace' using `filesets-cmd-query-replace-regexp-getargs'.
(filesets-run-cmd): Call `fn' only once if it is `multi-isearch-files'
or `multi-isearch-files-regexp'.
(filesets-cmd-query-replace-getargs): Call standard function
`query-replace-read-args' to read `query-replace' arguments.
Add `multi-query-replace-map'.
(filesets-cmd-query-replace-regexp-getargs)
(filesets-cmd-isearch-getargs): New functions.
This commit is contained in:
Juri Linkov 2008-07-24 00:09:01 +00:00
parent 1fbb8c2e7d
commit 67c18958a5
1 changed files with 57 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

103
lisp/filesets.el
View File

@ -565,12 +565,18 @@ including directory trees to the menu can take a lot of memory."
:group 'filesets)
(defcustom filesets-commands
`(("Query Replace"
query-replace
`(("Isearch"
multi-isearch-files
(filesets-cmd-isearch-getargs))
("Isearch (regexp)"
multi-isearch-files-regexp
(filesets-cmd-isearch-getargs))
("Query Replace"
perform-replace
(filesets-cmd-query-replace-getargs))
("Query Replace (regexp)"
query-replace-regexp
(filesets-cmd-query-replace-getargs))
perform-replace
(filesets-cmd-query-replace-regexp-getargs))
("Grep <<selection>>"
"grep"
("-n " filesets-get-quoted-selection " " "<<file-name>>"))
@ -1623,38 +1629,40 @@ Replace <file-name> or <<file-name>> with filename."
(when files
(let ((fn (filesets-cmd-get-fn cmd-name))
(args (filesets-cmd-get-args cmd-name)))
(dolist (this files nil)
(save-excursion
(save-restriction
(let ((buffer (filesets-find-file this)))
(when buffer
(goto-char (point-min))
(let ()
(cond
((stringp fn)
(let* ((args
(let ((txt ""))
(dolist (this args txt)
(setq txt
(concat txt
(filesets-run-cmd--repl-fn
this
(lambda (this)
(if (equal txt "") "" " ")
(format "%s" this))))))))
(cmd (concat fn " " args)))
(filesets-cmd-show-result
cmd (shell-command-to-string cmd))))
((symbolp fn)
(let ((args
(let ((argl nil))
(dolist (this args argl)
(setq argl
(append argl
(filesets-run-cmd--repl-fn
this
'list)))))))
(apply fn args))))))))))))))))
(if (memq fn '(multi-isearch-files multi-isearch-files-regexp))
(apply fn args)
(dolist (this files nil)
(save-excursion
(save-restriction
(let ((buffer (filesets-find-file this)))
(when buffer
(goto-char (point-min))
(let ()
(cond
((stringp fn)
(let* ((args
(let ((txt ""))
(dolist (this args txt)
(setq txt
(concat txt
(filesets-run-cmd--repl-fn
this
(lambda (this)
(if (equal txt "") "" " ")
(format "%s" this))))))))
(cmd (concat fn " " args)))
(filesets-cmd-show-result
cmd (shell-command-to-string cmd))))
((symbolp fn)
(let ((args
(let ((argl nil))
(dolist (this args argl)
(setq argl
(append argl
(filesets-run-cmd--repl-fn
this
'list)))))))
(apply fn args)))))))))))))))))
(defun filesets-get-cmd-menu ()
"Create filesets command menu."
@ -1668,16 +1676,19 @@ Replace <file-name> or <<file-name>> with filename."
;;; sample commands
(defun filesets-cmd-query-replace-getargs ()
"Get arguments for `query-replace' and `query-replace-regexp'."
(let* ((from-string (read-string "Filesets query replace: "
""
'query-replace-history))
(to-string (read-string
(format "Filesets query replace %s with: " from-string)
""
'query-replace-history))
(delimited (y-or-n-p
"Filesets query replace: respect word boundaries? ")))
(list from-string to-string delimited)))
(let ((common (query-replace-read-args "Filesets query replace" nil t)))
(list (nth 0 common) (nth 1 common) t nil (nth 2 common) nil
multi-query-replace-map)))
(defun filesets-cmd-query-replace-regexp-getargs ()
"Get arguments for `query-replace' and `query-replace-regexp'."
(let ((common (query-replace-read-args "Filesets query replace" t t)))
(list (nth 0 common) (nth 1 common) t t (nth 2 common) nil
multi-query-replace-map)))
(defun filesets-cmd-isearch-getargs ()
"Get arguments for `multi-isearch-files' and `multi-isearch-files-regexp'."
(list files))
(defun filesets-cmd-shell-command-getargs ()
"Get arguments for `filesets-cmd-shell-command'."