mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-31 23:00:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

Implement query-replace over the source tree

Browse source
This commit is contained in:
jjgarcia 2003-06-27 10:22:39 +00:00
parent 1d26a7a51d
commit 45c6042fbc
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/util/emacs.el
View file

@ -31,6 +31,18 @@
(defvar ecl-search-string)
(defun query-replace-ecl (from-string to-string &optional delimited start end)
(interactive (query-replace-read-args "Query replace" nil))
(setq ecl-search-string from-string)
(let ((remaining (member (buffer-file-name (current-buffer)) ecl-files)))
(dolist (i (or remaining ecl-files))
(let ((b (find-buffer-visiting i)))
(unless (equal b (current-buffer))
(switch-to-buffer b)
(beginning-of-buffer)))
(perform-replace from-string to-string t nil delimited nil nil
start end))))
(defun search-ecl (string)
(interactive "sString: ")
(setq ecl-search-string string)
@ -195,7 +207,6 @@
"c/hash.d"
"c/num_log.d"
"c/structure.d"
"c/clos.d"
"c/num_pred.d"
"c/symbol.d"
"c/cmpaux.d"